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Plot! your year on your computer with our 
combined calendar and diary program 

BASIC PROGRAMMING 69 

'FUCKER-BOOK' ANIMATION 




HOW TO ORDER 
YOUR BINDERS 

UK and Republic of Ireland: 

Send £4.95 (inc p & p) (1R£5.95) for 
each binder to ihe address below: 
Marshall Cavendish Services Ltd, 
Department 980, Newtown Road, 
Hove, Sussex BN37DN 
Australia: See inserts for details, or 
write 10 [NPUT, Times Consultants, 
PO Box 213, Alexandria, NSW 2015 
New Zealand: See inserts for details, or 
write 10 INPUT, Gordon and Gotch 
(NZ) Ltd, PO Box 1595, Wellington 
Malta: Binders are available froin local 
newsagents. 
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THere are four binders each holding 13 issues. 



Simple paged graphics techniques are used to 
demonstrate computer animation 



GAMES PROGRAMMING 33 
ARMING THE BANDIT 
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En|oy the thrill of gambling in the comfort of your 
own home with a computer one-armed bondit 



BACK NUMBERS 

Back itumbers are supplied at the regular cover price (subject to availability). 

UK and Republic af Ireland: 

INPUT, Dept AN, Marshall Cavendish Services, 
Newtown Road, Hove BN3 7DN 
Australia, New Zealand and Malta: 

Back Itumbers are available through your local newsagent. 



MACHINE CODE 34 

!FHANGER|SETTHESCENE 

In this Issue we put the cliff in Cliffhonger 
together with the rest of the scenery 



COPIES BY POST 

Our Subscription Department can supply copies to any UK address regularly at £1 .00 each. 
For example the cost of 26 issues is £26.00; for any ol her quantity simply multiply the number 
of issues required by £1 ,00, Send your order, with payment lo: 

Subscription Department, Marshall Cavendish Services Ltd, 

Newtown Road, Hove, Sussex BN3 7DN 
Please state the title of the publication and the part from which you wish to start. 
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Even If you're not a secret agent you con still 
make 'ise of these secret codes 



INDEX 

The last pari of INPUT, Part52, will contain o complete, cross-referenced index. 
For easy occess to your growing collection, a cumulotive index to the contents 
of each issue is contained on the inside back cover. 



PICTURE CREDITS 

Front cover, Projection Audio Visual. Pages 1017, 1018, 1019, 1020, 1021, Paul 
Chave/Spectrum. Pages 1022, 1024, 1027, Phil Dobson. Pages 1029, 1033, 
Spectrum. Pages 1031, 1044, 1047, 1048, Peter Reilly. Pages 1034, 1037, 1038, 
1041, 1042, Garj- Wing. Pages 1045, 1046, Projection Audio Visual. 



© Marshall Cavendish Limited 1984/5/6 
All worldwide rights reserved. 

The contents of this publication including software, axles, listings, 
graphics, illustrations and text are the exclusive property and copyright of 
Marshall Cavendish Limited and may not be copied, reproduced, 
transniitted, hired, lent, distributed, stored or modified in any form 
whatsoever without the prior approval of the Copyright holder. 

Published bv Marshall Cavendish Partworks Ltd, 58 Old Compton Street. London WIV 5PA. 
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HOW TO FAY: Readers in UK and Repulilic of Ireland: A 1 1 cheques orpostal orders 
for binders, back numbers and copies by post should be made payable to: 
Marshall Cavendish Parrworks Ltd, 



QUERIES; When writing in, pleasegivc the make and model of your computer.as 
well as the Part No., page and line where the program is rejected or where it does 
not work. We k;an only answer specific queries -and please do [lot telephone. Send 
your queries to INPUT Queries, Marshall Cavendish Partworks Ltd, 58 Old 
Compton Street, London WIV 5I'A. 



INPUT IS SPECIALLY DESIGNED FOR: 

TheSINCLAIRZXSPECTRUM(16K,48K,128and + ), 
COMMODORE 64 and 128, ACORN ELECTRON, BBC B 
and B+,and the DRAGON 32 and 64. 

In addition, many of the programs and explanations ore also 
suitable for theSINCLAIRZXSl, COMMODORE VIC 2aand 
TANDY COLOUR COMPUTER in 32K with extended BASIC. 
Programs and text which are specifically for particular machines 
ore indicated by the following symbols: 



SPECntUMMK, {Cz. I 
48K,128,aiid + L^<— I 



COMMODORE 64 and 128 



W^m ACORN ELECTRON, 1 %^ 
E:flBBCBaiKlB+ lIBI 



DRAGON 32 and 64 



ZX81 



VIC 20 



TANDY TRS80 
COIOUR COMPUTER 
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YOUIRS FO^ 
YEARS TO CO 




USING THE PROGRAM 



LOOK AT THE CALENDAR 



LOOK AT THE DIARY 



ADDING ENTRIES 



REVIEWING THE LISTS 



The combined calendar and diary 
program will help to keep your 
affairs in order and plan out the 
coming year. Make an early New 
Year's Resolution and use it now 

The program lines given here add some more 
routines to those given last time. So LOAD in 
the first part and enter the new hnes now. 

When you first RUN the program you are 
asked if you have any diary lists already saved. 
You won't have at this stage, so answer N. 
The program goes on to display the main 
menu. The menu for the Spectrum, Acorn, 
Dragon and Tandy has nine options: 

1 Look at monthly calendar 

2 Look at year calendar 

3 Look at month diary 

4 Review /edit finance 

5 Review/edit appointments 

6 Review/edit celebrations 

7 Review/edit holidays 

8 Save the lists 

9 Leave the program 

The program for the Commodore offers the 
same number of options but they are grouped 
together slightly differently and only four 
appear on the main menu. These are: 

1 Year calendar 

2 See diary 

3 Alter diary 

4 Leave program 

You can look at the monthly or year calendars 
without entering any data so try these out 
first. 



LOOK AT THE CALENDAR 



Choose option 1 and you can see a calendar 
for any month of any year within the limits of 
the program. The limits for the Spectrum, 
Commodore, Dragon and Tandy are from 
1753, when the modern Gregorian calendar 
started, and the year 29,999. The Acorn is 
slightly different in that it only works up to 
3299, due to the way the date is stored. 
However, that should be far enough into the 
future for anyone! The month, by the way, 
should always be entered as a number (from 1 



to 12) the program won't accept words. 

If you have a printer attached to your 
computer you can choose to have a printout of 
the calendar, otherwise it is just displayed on 
the screen. The name of the month, and the 
year are printed at the top and the days and 
dates are underneath. The week starts with 
Sunday which is printed in red on some of the 
computers. The date of Easter Sunday is 
calculated automatically and is printed out 
underneath if it falls in the month displayed 
(either March or April). 

There are several things you can do while 
looking at the monthly calendar, and the 
range of options are listed at the bottom of the 
screen (or on the previou s page o n the Dragon 
and T andy). Pressing jBREAKj , |ESCAPE | or 
I clear! (or M on the Commodore) takes you 
to the menu. Other keys allow you to step 
forwards or backwards by one month. The 
Spectrum uses the Z and X keys, the Commo- 
dore uses L and N, the Acorn uses the left and 



right cursor keys and the Dragon and Tandy 
use the up and down arrow keys. 

The other keys that do something are F, A, 
C and H which highlight entries relating to 
Finance, Appointments, Celebrations and 
Holidays. But they won't show anything until 
you've made some entries using the next 
options. 

The Commodore has one extra facility — S 
for swap — that lets you swap back and forth 
between the monthly calendar and the 
monthly diary planner, 



WRITING UP THE DIARY 



Option 2 on the Commodore and option 3 on 
the others let you see the monthly diary. But 
first you should make some entries. On the 
Commodore choose option 3 followed by the 
category, on the other machines 
simply choose the 
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category directly from the main menu. 

Whichever option you choose, press A to 
add an entry, D to delete an entry and M to 
return to the menu. 

As described last time, the Finance section 
offers a choice of Monthly, Quarterly, Annual 
or Single entries. Make your choice by press- 
ing the initial letter — either M, Q, A or S. You 
are then prompted to enter a name or sentence 
of up to 20 letters to describe the entry, 
followed by the first significant date. For a 
recurring entry, this would be the first time it 
occurred — say the first rate payment or your 
first salary cheque. The program automati- 
cally fills in details for the following months 
and years. Appointments and Holidays are 
treated as single events but Celebrations are 
taken as annual so use this option for birth- 
days and anniversaries. 

You can make up to 150 entries in each 
category on the Spectrum, Acorn and 
Dragon, and 100 entries on the Commodore. 

Next time you can add the final part of the 
program which lets you SAVE, LOAD and print 
out the lists. There will also be changes for 
disk drives and for the Electron. 



165 GOSUB 1480:IF KB = 1 THEN GOSUB 

1690 
1120 PAPER 0: INK 7 
1130 LET K$ = "123456789": GOSUB 1480 

LETC = KB:RETURN 
1140 LET KK= KB 
1150 LET KB = KK: GOSUB 1330 
1160 LET B = Q(KK):F0Ry = 4 

TO20:PRINTATv,0;Z$: 

NEXTy: PRINT AT 4,0 
1170 IF 3 = THEN GOTO 1210 
1180 FOR N = 1 TOE 
1190LETK$ = L$tKK,N):LETK2 = N: 

GOSUB 1370 
1200 NEXT N 
1210 LET K$ = "adm": GOSUB 1480: LET 

A = KB 
1220 FOR 1 = 1 TO 100: NEXT I 
1230IFAO1 THEN GOTO 1280 
1 240 LET K2 = B: LET T7 = KK: GOSUB 

1550: LETV$ = STR$T7: GOSUB 

1400 
1250 LET W$ = STR$ DA: IF LEN W$ 

= 1 THEN LETWS = "0"-hW$ 
1260LETV$ = V$-hW$:LETW$ = 

STRSMO: IF LEN W$ = 1 THEN 

LETW$ = "0" + W$ 
1 270 LET V$ = V$ + W$ + STRS YR 

LETL${KK,B-H)=V$-h 

B$:LETQ(KK) = Q(KK)-|-1 
1280 IF A<>2 THEN GOTO 

1310 
1290 INPUT "WHICH NUMBER 



TO DELETE (MIN1)";NN: IF NN<1 

OR NN>BTHEN GOTO 1290 
1300 FOR Z = NN -1-1 TO B: LET L$(KK, 

Z-1) = L$(KK,Z}: NEXTZ: LETQ(KK) = 

a(KK)-1 
1310 IFAoSTHEN GOTO 1160 
1320 RETURN 

1330 PRINT "Current List"T$(KB) 
1340 PRINT AT 0,17; INVERSE 1;"A"; 

INVERSE 0;"DDn"; INVERSE 1;"D"; 

INVERSE 0; "ELETED"; INVERSE 1;"M"; 

INVERSE 0;"ENU" 
1350 PRINT AT 3,0; 
1360 RETURN 
1370 LET F$ = L$(KK,K2): LET E$ = P${VAL 

F$(TO1))-h""-FF$t2T0 3)-h 

":" + F$(4T0 5) + ":" + F$(6to9) 
1380 PRINT E$;"n";F${10 TO 30) 
1390 RETURN 

1400 LET B$ = "": LETVP = 5 
1410 INPUT "To be called ?(Max 22 letters)'" 

LINE B$ 
1420 LET VP = VP-1 
1430 PRINT AT VP,0;""; 



1440 INPUT "SIGNIFICANT DAY:";DA: IF 

DA<1 OR DA>31 THEN GOTO 1430 
1450 GOSUB 2510 
1460 LET KB = MO: GOSUB 270: IF DA>KB 

THEN GOTO 1430 
1470 LET K$ = BS: GOSUB 1520: LET 

Y$ = K$: RETURN 
1480 LET a$ = INKEY$: IF aS = "" THEN 

GOTO 1480 
1490 F0Rn = 1 TO LEN KS: IFa$<>K$(n) 

THEN NEXT n 
1500 IF n> LEN K$ THEN GOTO 1480 
1510 LET KB = n:RETURN 
1520LETPP = (INT(YR/100)-17)-16-MVIO 
1530 LET K2 = 100: LETQQ=FN MtYR} 
1 540 LET K$ = CH R$ PP -I- CH R$ QQ + K$: 

RETURN 
1550IFT7O1 THEN GOTO 1580 
1560 PRINT AT 20,0; INVERSE 1;"M"; 

INVERSE 0;"ONTHLYn"; INVERSE 1;"a"; 

INVERSE 0; "UARTERLYD"; INVERSE 1; 

"A"; INVERSE 0;"NNUALa"; INVERSE 1; 

"S"; INVERSE 0;"INGL£" 
1570 LET KS = "mqas": GOSUB 1480: PRINT 

AT 20,0;Z$: PRINT AT 3,0;: LET T7 = KB: 

GOTO 1600 
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1580 IF T7 = 3 THEN RETURN 

1590LETT7 = 4 

1600 RETURN 

1610 CLS: PRINT FLASH 1;AT 10,5; 

"PREPARE CASSEHE PLAYER" 
1620 IF INKEYSo"" THEN GOTO 1620 
1630 SAVE "data" DATA Q() 
1640 FOR N = 1 10 4 
1650 IF Q(N)=0 THEN GOTO 1670 
1660 FOR M = 1 T0Q(N):LET0$(1) = 

L$(N, M):SAVE "data"DATA 0$():NEXT M 
1670 NEXT N 
1680 RETURN 
1 690 CLS: PRINT AT 10,5; FLASH 1; 

"PREPARE CASSETTE PLAYER" 
1700 LOAD "data" DATA GO 
1710 FOR N = 1 TO 4 
1 720 IF Q(N} = THEN GOTO 1740 
1730 FOR M = 1 TO Q(N): LOAD "data" 

DATA 0$():LET L$(N,M} - 0$(1):NEXT M 
1740 NEXT N 
1750 RETURN 



1100 DR = 1 

1110 POKE 53281,3:PRINT"aH 

HH11"TAB(9)"DIARY EVENTS EDIT 

MODE" 
1 1 20 FRINHABO)"^ D D □ D D □ 

nnnnnnnnnnnnn 
nnnaaa" 

1130FORN=0TO3:PRINnAB(11} 
N + 1;"D";ST$(N)"H":NEXTN 
1140 PRINTTAB(12)"5nn RETURN TO MENU" 
1150 PRINnAB(13)"BHMHENTER 
CHOICE ?" 

ii60PRiNnAB(i3}"^nnnnn 
nnnnnnnnn- 

1170 GET A$:IFA$ = "" GOTO 1170 
1180A = VAL(A$)-1:IFA<0ORA>4 

GOTO 1170 
1190 IF A = 4 THEN RETURN 
1200 POKE 53281,1 :PRINT"nM" 

TAB(20- (LEN(ST$(A))*.5})"a" 

CHR$(CL(A));ST$(A)"11" 
1210 MX = VAL(DL$(A,0)):IF MX = GOTO 

1290 



1220 FOR N = 1 TO MX 

1 230 A$ = STR$(N) + " D ":IF LEN(A$) < 3 

THENA$ = A$ + "n" 
1240 PR I NT A$; 
1250 FOR N1=1 T0 4:CD(N1) = ASC 

(MID$(DL$(A,N),N1,1)):NEXTN1 
1260CD(4) = CD{4) + (ASC(MID$ 

(DL$(A,N),5,1))'256) 
1265CD(2) = CD(2)-35 
^1270 PRINTCDS(CD(1));"n";STR$ 
(CD(2));"n";STR$(CD(3));"n"; 
STR$(CD(4});"n"; 
1280 PRINT MtD$(DL$(A,N),6) NEXT N 
1290PRINTTAB(9)"H(A)DD, 

(D)ELETE,{M)ENU" 
1300 GET A$:1F A$ = "" GOTO 1300 
1310 IF AS = "M" GOTO 1110 
320 IF AS = " A" GOTO 1350 
1330IFAS = "D"ANDMX> 

GOTO 1560 
1340 GOTO 1300 
1350 PRINT"HHB EVENT 
(16 LETTERS MAX)" 
1360 INPUT A$ 

1370PRINT"nMa"TAB(12) 
"DIARY ENTRY DATEHH" 

1380 INPUT" UUU II II U 
YEARU";Y:IFY<1753 0R 
Y>29999 GOTO 1380 

1390 IN PUT" null II II 
M0NTH||";M:IFM<1 OR 
M>12 
GOTO 1390 
1400 LY = 

1410 IF M =2 ANDY/4- INT 
(Y/4) = 0THENLY = 1 
1420 INPUT"U|JUUIIIII|DAY||"; 
D:IFD<1 OR D>VAL(MID$(ML$, 
M*2 - 1,2)) + LY GOTO 1420 
1430 IF A = GOTO 1480 
1440 FR = 4:IFA=2 THEN FR = 3 
1450 MX = MX + 1:DL$(A,0)=STR$(MX): 

Y9 = INT(Y/256) :Y8 = Y - (Y9*266) 
1460 DL$(A,MX)-CHR$(FR) + CHR$ 
(D + 35) + CHR$(M) + CHR$(Y8) + 
CHR$(Y9) + L£FT$(A$,16) 
1470 GOTO 1200 

1480 PRINT"HHHn{M)ONTHLY, 
{Q)UARTERLY,(A)NNUAU 
(S)INGLE" 
U90FR = 0:GETX$:1FX$="" 

GOTO 1490 
1500 IF X$ = "M" THEN FR = 1 
1510 IF X$ = "a" THEN FR = 2 
1520 IF X$ = "A" THEN FR = 3 
1530 IFX$ = "S" THEN FR = 4 
1540 IF FR = GOTO 1490 
1550 GOTO 1450 
1560 PRINT"WHICH NUMBER": 

INPUT A$:X = VAL(A$) 
1570IFX<1 OR X> MX GOTO 1560 
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1580FORN = X + 1TOMX:DL${A, 

N-1) = DL$(A,N):NEXTN 
1590 DL$(A,0) = STR$(MX-1): GOTO 1200 
1600 IFZ = 1 THEN RETURN 
1610 IF C>3 THEN CC = WH: 

RETURN 
1 620 IF M = EM AND CD = ED THEN 

CC = CL(4):RETURN 
1630MX=VAL(DL$(C,0)) 
1640IFMX = 0THENCC = WH: 

RETURN 
1650 LX = 
1660LX = LX + 1 

1670CD(2} = ASC(MID$(DL$(C,LX),2,l))-35 
1680 IF CD <> CD{2) THEN CC = WH: 

GOTO1710 
1690 G0SUB1 740 
1700IFFL = 1THENCC = CL(C): 

RETURN 
1710IFLX<MXGOTO1660 
1720CC = WH 
1730 RETURN 



125!FFNget("YN"} = 1 PROCIoad 

1270DEFPROCIist(tvpe%) 

1280 LOCAL n,a%,b% 

1290PROCheader(1vpe%) 

1300 REPEAT 

1310 CLS 

1320b%=VAL(List${tvpe%,0)) 

1330 IF b% = GOTO 1370 

1340 FOR n = 1 TO b% 

1350 PROCop(List$(tvpe%,n),n) 

1360 NEXT 

1370a% = FNget("ADM"} 

1 380 1 F a% = 1 List$(tYpe%,b% + 1 ) 

= CHR$(FNtvpe(t¥pe%)) + FNadd: 

List$(type%,0) = STR$(b% + 1) 
1390IFa% = 2ANDb%>0FOR 

p% = FNnoln(1 ,b%,"Whlch number") + 1 

TO b%:List${tvpe%,p%- 1 ) = List$ 

{tvpe%,p%):NEXT:List$(t¥pe%,0) = STR$ 

(b%-1) 
1400 UNTIL a%=3 
1410ENDPROG 
1420 DEF PROCheader(t%) 
1430 LOCAL y 
1440 FOR y = 1 T0 2:PRINTF$ + 

T¥pe${t%):NEXT 
1450PRINnAB(2,3)CHR$134 + 

"Current List" 
1460FORy = 21TO24 
1470PRINnAB(0,y)CHR$132 + 

CHR$157 + CHR$135TAB(35,y) 

CHR$156; 
1480 NEXT 

1490 PRINnAB(4,23)"Add Delete Menu"; 
1 500 VDU28,0,21 ,39,4 
1510ENDPROC 
1520 DEF PROCop{a$,no%) 



1530LOCALn%,b$,d$ 

1540 FOR n% = 1 TO 4:code%(n%} 

= ASC(MID$(a$,n%,1)):NEXT 
1 550 b$ = MID$(Pay$,code%(1 )*4- 3,4) 
1560d$ = STR$code%{2) + ":" + 

STR${code%(3)MOD16) + ":" + 

STR${(code%(3)DIV16 + 17)* 

100 + code%(4)) 
1570 PRINT;no%;CHR$131;b$;CHR$ 

133;d$JAB(17,VPOS);CHR$135; 

RIGHT$(a$,LENa$-4} 
1580ENDPROC 
1590 DEF FNadd 
1600 LOCAL b$,vpos% 
1610 PRINT'To be called? (max 20 

letters)": INPUT,b$ 
1620vpos% = VPOS + 1 
1630 REPEAT PRINnAB(0,vpos%); 
1640 PRINT"Significant data?" 
1650Day% = FNnoln(1,31,"nnDay:") 
1660PROCniydate 
1670 UNTIL Day%< =FNmonthL 

{Month%) 
1680 =FNcode{b$) 
1690 DEF FNget(a$) 
1700 LOCAL b$,a% 
1710 REPEAT b$=GET$:a% = INSTR 

(a$,b$):UNTIL a% 
1720 =a% 

1730 DEF FNnoln(min,max,b$) 
1740 LOCAL y,a$ 
1750y = VPOS 

1760 REPEAT PRINnAB(0,y)SPC30 
1770 PRINnAB(0,v)b$;:INPUTa$ 
1780 UNTIL VALa$> =minnAND 

VALaS < = max 
1790 =VALa$ 
1800 DEF FNcode(b$) 
1810LOCALp%,q% 
1820 p%=(Year%DIV100-17)'16 + 

Month% 
1830q%=Yea(%MOD100 
1 840 = CHR$Day% + CHR$p%+ CHR$q% + 

LEFT$(b$,20) 
1850 DEF FNtype(t%) 
1860IFt% = 0PRINT"Monthly, 

Quarterly,Annual,Single": = 

FNgetC'MQAS") 
1870IFt% = 2 =3 
1880 =4 

1890 DEF PROCsave 
1900 LOCALn%,p% 
1910X = OPENOUT("Diary") 
1920FORn% = 0TO3 
1930 FOR p% = TO VAL(List$(n%,0)) 
1940 PRINT #X,List$(n%,p%) 
1950 NEXT, 
1960 CLOSE #X 
1970 ENDPROC 
1980 DEF PROCIoad 
1990 LOCAL X,n%,p%,m% 



2000X = OPENIN("Diary") 

2010FORn% = 0TO3 

2020INPUT#X,List$(n%,0) 

2030m% = VAL(List$(n%,0)) 

2040IFm% = 0GOTO2080 

2050FORp% = 1TOm% 

2060INPUT#X,List${n%,p%) 

2070 NEXT 

2080 NEXT 

2090 CLOSE #X 

2100 ENDPROC 

2110 DEF PROCannual 

2120LOCALm%,a 

2130Year%=FNnoln(1752,3299, 

"nYear:"):PROCeaster 
2140 PROCprinter:CLS 
2150PRINTF$;"YEARn";Year%; 

TAB(35)CHR$156 
2160 VDUP%:PRINTF$;"YEARn"; 

Year%;TAB(35)CHR$156 
2170 PRINT:PROCprintdays(0):PRINT 
2180 PROCspacebar 
2190 FOR Momh% = 1 TO 12 
2200 PRINTCHR$129;MID$(Month 

Name$,Month%*9-8,9) 
2210 PROCprintmonth(5,0) 
2220IFP% = 0a = GET 
2230 NEXT 
2240 VDU26,3 
2250 ENDPROC 
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115 KB$ = "YN":GOSUB 1590:1F KB = 1 

GOSUB1870 
1180 'LIST & UPDATE 
1190N = 0:A = 0:B = 0:KK=KB 
1200 KB = KK:GOSUB 1330 
1210 REM 
1220 FOR VU = 1 TO 14:PRINT@VU*32: 

NEXT:PRINT@32,""; 
1230B = VAL(LI$(KK,0)) 
1240 IF B = THEN 1280 
1250 FOR N = l TOB 

1260 KB$ = LI$(KK,N):K2 = N:G0SUB 1410 
1270 NEXT 

1280 KB$ = "ADM";GOSUB 1590:A = KB 
1290 IF A = 1 THEN T7 = KK:G0SUB 1680: 

GOSUB 1490:L1$(KK,B + 1) = CHR$ 

(T7)+T8$:LI$(KK,0) = MID$ 

(STR$(B + 1),2) 
1300 IF A = 2 THEN INPUT "WHICH 

NUMBER";NN:IF NN < 1 OR NN > B THEN 

1300 ELSE FOR PP = NN + 1 TO 

B:LI$(KK,PP-1) = LI$(KK,PP}: 

NEXT:LI$(KK,0)=STR$(B-1) 
1310IFAO3THEN1210 
1320 RETURN 
1330 'SET UP HEADER 
1340 PRINTTY$(KB),"CURRENT LIST" 
1350 FOR Y = 2 TO 14 
1360PRINT@Y"32 
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1370 NEXT 

1380 PRINT@480,"ADD DELETE MENU"; 

1390 PRINT@32,""; 

1400 RETURN 

1410'OP 

1420N2 = 0:BB$ = "":DD$ = '"':K3 = K2 

1430 FOR N2 = 1 TO 4:IF MID$(KB$, 

N2,1) = ""THENCD(N2) = 0ELS£ 

CO(N2)=ASC(MID$(KB$,N2,1)) 
U40 NEXT 

1450 BB$ = MID$(PA$,CO(1)'4-3,4) 
1460 K2 = 16:DD$ = MID$(STR$(CO(2)), 

2) + ":" + MID$(STR$(FNM(CO(3))),2) + 

":" + MID$(STR$((FIX(CO(3)/16) + 17)" 

100 + CO(4)),2) 
1470 PRINTMID$(STR$(K3),2);"n"; 

BB$;"n";DD$;"n";RIGHT$ 

(KB$,LEN(KB$)-4) 
1480 RETURN 
1490 'ADD AN ENTRY 
1500B3$ = "":VP = 
1510 PRINT'TO BE CALLED ? (MAX 22 

LEnERS)":LINE INPUT B3$ 
1520VP = INT((PEEK(136)*256 + 

PEEK(137)-1024)/32) 
1530PRINT@VP'32,""; 
1540 PRINT'SIGNIFICANT DATE ?" 
1550 INPUT "D nDAY:";DA;IF DA<1 OR 

DA>31 THEN 1530 
1560 GOSUB 2750 
1570 KB = MO:G0SUB 230:IF DA>KB THEN 

1530 
1580 KB$ = B3$:G0SUB 1630:T8$ = KB$: 

RETURN 
1590 'CHECK K6D FOR CHARACTER IN KB$ 

AND RETURN POSITION IN KB 
1600 B$ = INKEY$:IFB$ = "" THEN 1600 
1610 KB = INSTR(1,KB$,B$):IFKB = THEN 

1600 
1620 RETURN 
1630 'CODE INFO 
1640 PP = 0:00 = 
1650 PP = (FIX(YR/100)-17)'16 + MO 
1660K2=100:QQ=FNM(YR) 
1670 KB$ = CHR$(DA) + CHR$(PP) + CHR$ 

(QQ) + LEFT$(K6$,22):RETURN 
1680 'GET TYPE 
1690 IF T7 = THEN PRINT'MONTHLY, 

QUARTERLY,ANNUAL,S1NGLE":KB$ = 

"MQAS":GOSUB1590:T7 = 

KB:GOTO 1720 
1700 IF T7 = 2 THEN T7 = 3:GOTO 1720 
1710 T7 = 4 
1720 RETURN 
1730 'SAVE ARRAY 
1740N = 0:P = 
1750 OPEN "0",#-1, "DIARY" 
1760 FOR N = TO 3 
1770M=VAL(LIS(N,0)) 
1780PRINT#-1,LI$(N,0) 
1790 IF M=0 THEN 1840 




1800 FOR P = 1 TOM 

1810 FOR J = 1 T0 4;PRINT#-1,STR$ 

(ASC(MID$(LI$(N,P),J,1))):NEXTJ 
1820PRINT#-1,MID$(L1$(N,P),5} 
1830NEXTP 
1840NEXTN 
1850 CLOSE #-1 
1860 RETURN 
1870 'LOAD ARRAY 
1880N = 0:P = 0:M = 
1890 OPEN "I", #-1, "DIARY" 
1900 FOR N = TO 3 
1910 LINE INPUT #-1,LI$(N,0) 
1920M = VAL(LI${N,0)) 
1930 IF M = THEN 1980 
1940 FOR P = 1 TOM 
1950 FOR J = 1 T0 4:INPUT#-1, 

NN$:LI$(N,P} = LI$(N,P) + 

CHR$(VAL(NN$)):NEXTJ 
1960 LINE INPUT # -1,NN$:LI$(N,P) = 

LI$(N,P) + NN$ 
1970 NEXT 
1980 NEXT 
1990CLOSE#-1 
2000 RETURN 
2010 'YEARLY CAL 



2020M4 = 0:A4 = 

2030 INPUT "YEAR:";YR:IF YR < 1 753 OR 

YR> 29999 THEN 2030 ELSE GOSUB 

650 
2040 GOSUB 2720:CLS 
2050 PRINT-YEAR n";YR 
2060IFP = 2THENPRINT#-2, 

'■YEARn";YR 
2070 PRINT# - P:KB = 0:GOSUB 2150: 

PRINT# -P 
2080 GOSUB 2660 
2090FORMO = 1TO12 
2100 PRINT# -P,MID$(MN$,M0'9 

-8,9} 
2110 T2 = 5:S2 = 0:GOSUB 2240 
2120 IF P = AND INKEY$ = ""THEN 

2120 
2130 NEXT 
2140 RETURN 
2150'PRINTDAYS -KB 
2160X2 = 0:C2 = 0:D2 = 
2170 IF KB = 0THENX2 = 7 
2180IFP = 2THENKB = KB + 1 
2190 PRINT # -P,STRING$(X2,32); 
2200FORD2 = 0TO6 
2210 PRINT # -P,STRING$(KB,"n") + 

MID$(DN$,D2*3 + 1,3); 
2220 NEXT 
2230 RETURN 
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ANIMATION 



Using the simple techniques of 
paged graphics will give a real 
insight into the world of computer 
animation. And it makes an 
interesting display for your micro 



All types of animation rely on a phenomenon 
of perception known as persistence of vision. 
In effect, this means that an image which we 
see is 'held' in memory for an appreciable 
instant, even after the view is changed to 
something else. If a sequence of still images is 
shown rapidly, the brain cannot keep up with 
changes of picture occurring more than 
twelve or so times a second. As a result, it 
ceases to see separate images — the pictures 
blur into one another, and the brain is fooled 
into seeing movement. 

The process is very simply demonstrated 
by the 'flicker-book', in which drawings on 
each page of a book can be animated as the 
pages are flipped over at speed. A more 
sophisticated demonstration of the same thing 
is the process of stop-frame animation, which 
dates back to the early years of this century. 

This type of animation consists of drawing 
a shape on a piece of clear plastic, known as a 
cell, and then photographing two or so frames 
of film using a conventional cine camera 
mounted on an overhead rostrum. The cell is 
then replaced with one showing a slightly 
altered version of the shape, and the whole 
process is repeated. As you can imagine, this 
type of animation requires an incredible 
number of pictures to be painstakingly drawn 
by hand, as about twenty-five frames are 
needed for everv second of the finished film. 



COMPUTER GRAPHICS 



So why not use computers to speed up the 
process? Even the relatively humble home 
micro can produce good pictures, while 
purpose-built main frames are capable of 
staggeringly sophisticated images. 

The problem is that to produce a display of 
the quality taken for granted by cinema 
audiences nowadays requires a fantastically 
extensive assortment of hardware. One 
science-fiction film — The Last Star fighter — 
relies on computer equipment to achieve 27 
minutes of breathtaking images. But to do this 
needed a $12 million Cray X-MP interfaced 
to two $1 million mainframes. This massive 
expenditure was considered worthwhile as it 
allowed pictures to be constructed which 
would be difficult in the real world. 

This technology is all very well for people 



who have access to motion-picture or video 
recording equipment, powerful computers 
and plenty of time. But most people who 
possess none of these things still find com- 
puter generated graphics of enormous use. 
Animated images are an important part of all 
sorts of Computer-Aided Design (CAD) 
packages, for example, and every good 
arcade game relies heavily on smoothly- 
animated, attractive screen displays. 

The sophistication that can be achieved in 
this is limited by the capabilities of the 
computer you use. The Cray operates at 100 
megaflops (100 million floating point oper- 
ations per second). But as the images have to 
be swapped many times a second for realistic 
animation, even the Cray could not generate 
film-quality images quickly enough for real- 
time animation. Instead, the images that it 
generated were filmed separately in a conven- 
tional stop-frame process. 

Lower levels of detail in the pictures 
permit frames to be generated more quickly. 
Indeed, there exists a flight simulator in 
which reasonably accurate representations of 
an aeroplane in flight are generated 50 times 
per second, giving realistic animated effects. 

The reason for the difficulty of high-speed 
computer animation is the amount of inform 
ation required by a picture. The more de- 
tailed the image, the more memory is needed 
to store it. Increase the number of colours 
available and the amount of RAM required to 
store the colour information is increased, too. 

The more memory used to store the pic- 
ture, the more work the CPU has to do to 
update it. The reason why most commercial 
computer-generated films use stop-frame 
animation is simply that the processor is not 
sufficiently powerful to update large areas of 
memory quickly. If updating graphic displays 
is a slow process, even to people with power- 
ful computers, how can a home programmer 
produce animation using a micro? One so- 
lution is the use of paged graphics. 



WHAT ARE PAGED GRAPHICS? 



Every home computer has an area of memory 
associated with the screen. It can either be 
memory mapped, which means that for each 
screen location there is a corresponding mem- 



ory location, or it may be organized using a 

display file. 

With paged graphics, instead of building the 
next picture up directly in the screen mem- 
ory, an area is reserved somewhere else for 
this purpose. Once the new picture has been 
completed, it is copied to the RAM normally 
associated with the screen. These extra screen 
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PAGED GRAPHICS EXPLAINED 



A MOVING CUBE 



CREATING GRAPHICS 
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ANIMATION 



areas are called pages, which is why the 
technique is known as paged graphics. 

But why do this? Writing to the other page 
certainly doesn't save any time. In fact, 
updating the display will take slightly longer 
because of the time taken to copy the inform- 
ation into the screen memory. The advantage 



lies in the fact that while updating the 
'hidden' page, there is no change on the 
current screen display. 

Obviously, if you only want to draw one 
picture, paged graphics may seem of little use. 
However, if you want to write a program in 
which a page of text is followed by a picture, 




say, think how convenient it would be to be 
able to start creating the first graphical dis- 
play somewhere else in memory while the 
user is occupied reading the page full of 
instructions. When the display is needed, 
time is saved as it is already present in another 
area of RAM. If convenient you can actually 
perform all the time consuming calculations 
yourself, and just use the computer to display 
the pictures as quickly as necessary. 

But the real advantage of paged graphics is 
if you want to display more than one image in 
rapid succession. BASIC graphics commands 
usually only write to the screen memory. This 
means that pictures are built up on the screen 
and then saved afterwards. While using paged 
graphics will not make the physical construc- 
tion of a screen picture any quicker, once the 
calculations have been performed, pictures 
can be recalled from memory to the screen 
very quickly. Paged graphics thus retain the 
simplicity of BASIC, combined with much 
greater display speeds. And if you set up 
several images in different areas of memory, 
they can be called up in sequence rapidly to 
permit relatively complex displays. 
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Suppose that you want to set up a simple 
animated sequence involving the rotation of a 
cube. You have decided that four pictures will 
be sufficient to represent one rotation of the 
cube, and you want the cube to rotate five 
times. A typical program structure might look 
like this: 

for count = 1 to 5 do 
begin 

clear the screen 
construct picture number 1 
clear the screen 
construct picture number 2 
clear the screen 
construct picture number 3 
clear the screen 
construct picture number 4 
end 

The idea is simple enough: the screen is 
cleared, each of the four pictures is drawn in 
sequence and the process is repeated until the 
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The Spectrum display: a tratnpolinist 



The unusual graphics screen on the Commodore 



cube has rotated five times. The disadvantage 
of this method is that it will draw each picture 
five times. The calculations each take some 
time, so poor animation results — with an 
appreciable 'jump' between each image. 

Now look at the alternative algorithm 
below, which shows the general procedure for 
a program structured around paged graphics 
techniques: 



clear the screen 

construct picture number 1 

store the screen data to memory page 1 

clear the screen 

construct picture number 2 

store the screen data to memory page 2 

clear the screen 

construct picture number 3 

store the screen data to memory page 3 



clear the screen 

construct picture number 4 

store the screen data to memory page 4 

for count = 1 to 5 do 

copy memory from page 1 to screen 

copy memory from page 2 to screen 

copy memory from page 3 to screen 

copy memory from page 4 to screen 

end 





Paged graphics: let's hear it for the Acorn 



A rotating asterisk makes the Dragon display 



The program is longer and you still have to go 
through the time-consuming process of cal- 
culations and drawing the four pictures, but 
animation does not start until this has been 
done. Once stored in memory, the pictures 
can be recalled very quickly. 

Although the drawing is still done in 
BASIC the actual piece of program to move a 
particular picture in the memory will be a 
short machine-code routine. This transfers an 
entire screen of information faster than the 
eve can see — the essence of animation. 



GRAPHIC DEMONSTRATION 



The following programs demonstrate a 
simple application of paged graphics on each 
computer. As the programs contain machine 
code to get the required speed of exchanging 
the images, SAVE them before RUNning, in 
case of mishaps. 

In each case you are prompted to press a 
key after each image has been drawn, and a 
key has to be pressed to start the images 
alternating. 

You can use these programs as the basis for 
your own experiments, by changing the 
images that they draw. But a later article 
explains the techniques involved in more 
detail, and how to push the sophistication of 
the animation to the limits of your computer. 



This program — suitable for 48K Spectrums 
only — will give you a simple animation of a 
man bouncing on a trampoline. Although the 
majority of the program is in BASIC, there is 
some machine code that gives the speed 
required to call the pages from memory. 

10 BORDER 0: PAPERS: INK 7: CLS 
20 CLEAR 53230 



30 GOSUB 220 

40 LET srce = 64: LET dest= 208 

50 CLS 

60 CIRCLE 128,168,7: PLOT 128,161: DRAW 

0,-15: DRAW -10,-10: PLOT 128,146: 

DRAW 10,-10: PLOT 118,161: DRAW 

11,-5: DRAW 10,5 
70 PLOT 108,106: DRAW 40,0: PLOT 

113,106: DRAW -8,-8: PLOT 145,106: 

DRAW 8,-8 
80 GOSUB 270: LETdest=dest-M6 
90 PRINT AT 21,0;"any key when ready": 

PAUSE 
100 CLS : CIRCLE 128,141,7: PLOT 128,134: 

DRAW 0,-1 5: DRAW -5,-16: PLOT 

128,120: DRAW 5,-17: PLOT 118,125: 

DRAW 10,5: DRAW 11,-5 
110 PLOT 108,106: DRAW 15,-4: DRAW 

10,0: DRAW 15,4: PLOT 113,105: DRAW 

-8,-8: PLOT 1 44,1 05: DRAW 8, - 8 
120 PRINT AT 6,4;"!!B0ING!!" 
130 GOSUB 270 
140 PRINT AT 21,0;"any key when ready": 

PAUSE 
150 LET srce = 208: LETdest = 64 
160 REM PRINT AT 17,0;"press any key to 

RESTORE ": PAUSE 
170FORn = 0TO1 
180 CLS 

190 GOSUB 270: LET srce = srce -M 6 
200 NEXT n 
210 GOTO 150 

220 DATA 1,0,16,17,0,0,33,0,0,237,176,201 
230 FOR 1 = 53231 TO 53231 -I- 11 
240 READ byte: POKE l,byte 
250 NEXT i 
260 RETURN 
270 POKE 53236,dest 
280 POKE 53239,srce 
290 RANDOMIZE USR 53231 
300 RETURN 



Line 10 sets the colours of the screen, border 
and the display: black, black and white re- 
spectively. Line 20 reserves an area of mem- 
ory for the machine code that you will be 
using and then Line 30 sends the program off 
to a subroutine at Lines 220 to 260 that sets 
up the machine code. This subroutine reads 
off the DATA in Line 220 and POKEs it into the 
memory area reserved by Line 20 before 
returning to Line 40. Line 40 defines two 
variables: srce and dest. srce is the high byte of 
the address where the DATA is to be taken from 
and dest is the high byte of the temporary 
address store. These tell the computer where 
to read the screen image from and where to 
put it in memory. 

With this out of the way the first of the two 
images for the two passes is drawn — a man up 
in the air poised over a trampoline — and this 
is taken care of in Lines 60 and 70. Line 80 
first sends the program off to Line 270 where 
there is a routine that puts the dest and srce 
numbers into the machine-code program and 
then calls the machine code to copy the 
portion of the screen in which the image of the 
trampolinist is seen. 

The next step is to create the image for the 
second page that is to be stored. The two lines 
that achieve this are 100 and 110, while Line 
120 PRINTs a non-audible sound effect! This 
second image is stored by Line 130 which 
sends the program to the subroutine at 270 
and the Line 1 50 swops over the values of srce 
and dest which has the effect of downloading 
the image from RAM onto the screen. Lines 
150 to 210 set up a loop that will alternate the 
two images that have been created. This will 
RUN until you press the |BREAK| key. 

You can use this program to set up your 
own two-frame animation by changing the 
graphics commands in lines 60 and 70, and 



lines 100 and 110 to make new images. But 
under the right circumstances it is possible to 
get as many as eight pages to run in sequence. 
The program to do this becomes rather more 
complicatedj and is covered in detail in a later 
article. 
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Use of the Commodore's excellent resolution 
graphics — accessible by using either a 
Simon's Basic Cartridge or INPUT'S high- 
resolution graphics facility starting on page 
748 — gives an unusual and interesting alter- 
nating pair of images. 

The two images are similar, and so they are 
not drawn individually, Instead, thay are 
constructed using a FOR. . . NEXT loop which 
sends the program through the drawing rout- 
ine twice, making small changes to the in- 
structions the second time around. 

When using a Simon's Basic Cartridge the 
program below is correct. If using INPUT'S 
high resolution graphics facility, as has been 
published so far on pages 748 to 751 and 872 
to 877, delete Line 65, change the 224 in bold 
in Line 240 to 32 and the 255 in bold in Line 
250 to 63. When the remainder of INPUT'S 
high-res facility is published, Line 65 can be 
left in but the changes to Lines 240 and 250 
must still be made. Also, you must preface all 
the graphics commands with @, as explained 
on page 748. 

20 POKE 51, 255:POKE 52,29: POKE 

55,255:POKE 56,29:CLR 
30 GOSUB 220 
40D = 64 
50FORN = 0TO1 

60 HIRES 0,1:MULTI 2,4,5:COLOUR6,6 
65 CIRCLE 80,1 00,30 -h10'N,30-h10*N, 

1: PAINT 80,100,2 
70 FOR X = TO 159: PLOT 

RND(1)-160,RND(1)'200,RND(1)'4 
80 PLOT X,100-h30*SIN((N-hX/50)*;r/4),3 
85 LINE X, 50-hN'50, 0, 100- N"50, RND (1) 

•4-H 
90 NEXT X 

100 GOSUB 430:IFN = THEN D = 96 
110 TEXT 30,1, "PRESS ANY KEY",3,1,8:POKE 

198,0:WAIT 198,1 
120 NEXT N 

150D = 64:FORN = 0TO1 
170GOSUB440:IFN = 0THEND = 96 
190 NEXT N 
200 GOTO 150 
220 FORZ = 7680 TO 7738: READ X:POKE 

Z,X:NEXT Z:RETURN 
230 DATA 169,0,141,14,220,169,53,133,1 
240 DATA 169,0,133,251,133,253,169,224, 

133,252,169,64,133,254,160,0 
250 DATA 177,251,145,253,192,63,208,16, 



165,252,201,255,208,10 
260 DATA 162,1,142,14,220,162,55,134,1,96, 

200 
270 DATA 208,229,230,252,230,254, 

76,25,30 
430 POKE 7700,D:POKE 7706,251 :POKE 

7708,253:SYS 7680:RETURN 
440 POKE 7700,D:POKE 7706,253:POKE 

7708,251 :SYS7680:RETURN 

Line 20 of the program clears some space in 
the memory for the machine code and the 
screens that will need to be stored. Line 30 
then sends the program to the subroutine at 
Lines 220 to 270, where the DATA is POKEd 
into memory. Line 40 sets the position in the 
memory where the first of the screens is to 
stored and 50 is a FOR. . .NEXT loop for the 
different screens. The graphics mode and 
screen colour (blue) are set in Line 60. 

The first and second of the designs is 
drawn by Lines 65 to 85. In Line 100 the 
program is first of all sent to Line 430 which 
saves the screen before changing the screen to 
its location. The two screens are swopped 
over by a routine contained in Lines 150 and 
200. 



The end result of the Acorn program is a 
singer giving his all and sending notes wafting 
into the air. This is achieved using two pages 
of graphics in which only the man's mouth, 
eyes and the musical notes move. The pro- 
gramming to produce these graphics on 
screen, however, takes up a number of lines as 
there are several shapes to be drawn (using a 
simple ellipse routine). 

10VAR = 

20 M0DE4 

30 VDU 23,224,16,24,20,16,16,48,112,32 

40 HIMEM = &3000:DIM MC% 100 

50 PROCCODE 

60F% = &58:T% = F%-&14 

70 FOR N = 0TO 1 

80CLS 

90PROCC(7.8,.018,200,640,240,752):PROCC 

(7.8,.08,50,590,50,790):PROCC(7.8,.08, 

50,690,50,790) 
100 IFN = 1 THEN 160 
110 PROCC(7.8,.08,50,640,75,640) 
120 PROCC{7,8„08,1 5,605,1 0,820) 
130 PROCC(7.3,.08,1 5,675,1 0,820) 
140 PROCNOTES(0) 
150 GOTO 190 

160 PROCC(7.8,.08,75,640,50,640) 
170PROCC(7.8,.08,15,605,10,775):PROCC 

(7.8,.08,1 5,675,1 0,775) 
180 PROCNOTES(90) 
1 90 PROCMOVE(F%,T%):T% = T% - 8.14 



200 PRINTTAB(0,18);"PRESS ANY KEY": 

A$ = GET$ 
210 NEXT 

220 PRINTAB(0,18)SPC(15) 
230T% = &58:F% = T%-&14 
240FORN = 0TO1 

250 PROCMOVE(F%,T%):F% = F%- 8.14 
260D = 1NKEY(25) 
270 NEXTN 
280 GOTO 230 
290 DEF PROCCODE 
300 REM BLOCK MOVE CODE 
310FOROPT% = 0TO2STEP2 
320P% = MC% 
330 [ 

340 OPT OPT% 
350.MVBLKaLDA #19 
360 JSR &FFF4 
370LDX#8l14 
380LDY#0 
390.NXTnLDA(fi.70),Y 
400 STA (8.72) ,Y 
410 DEY 
420 BNE NXT 
430 INC 8.71 
440 INC 8.73 
450 DEX 
460 BNE NXT 
470 RTS 
480] 

490 NEXT OPT% 
500 ENDPROC 
510DEFPROCMOVE(F%,T%) 
520 REM CALL BLOCK MOVE CODE 
530?&70 = 0:?8i71=F% 
540?&72 = 0:?&73=T% 
550 CALL MVBLK 
560 ENDPROC 
570 DEFPROCC(A,B,C,D,E,F) 
580FORX = 1 TO A STEP B:PLOT 

69,SIN(X)'C-FD,COS(X)*E-|-F . 
590 NEXT 
600 ENDPROC 
610DEFPROCNOTES(F) 
620 VDU 5 
630 FOR T = 1 TO 11 

640 MOVE600 + Tm + F,630 + T*30 -I- F/2 
650 VDU 224 
660 NEXT 
670 VDU 4 
680 ENDPROC 

Line 20 sets the MODE. A UDG for the notes 
is estabhshed by Line 30. The next line. Line 
40 allocates the area of memory into which the 
two images are to be moved, above that of 
the BASIC program and, then puts aside 
some memory for the machine code. The 
PROCCODE in Line 50 calls the routine to set 
up the machine code. This machine code 
moves the blocks of memorv around. 
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The next thing to do is to define the 
addresses of the area from which the block is 
to be taken and to which it is to be directed. 
Line 60 gives the high byte address, &58, of 
where the memory is to be taken F(%)rom is 
assigned. This is called F%. The position 
where it is to go T( %)o, T%, is also given a high 
byte address F% — &14. The program now 
enters a short loop at Line 70 and after the 
screen is cleared in Line 80, the fixed parts of 
the singers face are drawn by Line 90 and the 
subroutine at Lines 570-600. As N is only 
equal to on this first time round the loop, 
the program continues past Line 100 to Lines 
110 to 130 where the first of the two sets of 
the singers' moving features are drawn. Line 
140 then calls Line 610 to draw the first set of 
notes. The program returns to Line 190 
which first puts this completed first scene into 
the page assigned in RAM, then moves the 
pointer down to the second position in RAM 
where the next face is to be stored. 

Line 200 gives the PRESS ANY KEY 
message and waits for the key press — when 
this is detected, the program is sent to Line 80 
by Line 210. The program is now going 
round this loop for the second time and after 
the screen is cleared in Line 80, the fixed face 
features are drawn in Line 90 again. Now, as 
N is equal to one. Line 100 sends the program 
to Line 160. This and the next line draw the 
second of the two sets of moving features. 
Then in Line 180, PROCNOTES (90)- calls the 
PROCedure to draw the notes again, but this. 



time in a different position, thanks to the (90) 
fed into the F variable of the PROCedure. 

Line 190 now stores this second face in the 
previously reassigned position. Once more, 
200 waits for a key press, but this time as the 
loop is finished the program proceeds to Line 
220, where PRESS ANY KEY is deleted 
from the screen, and then onto a loop starting 
at Line 230 and ending at Line 280. The 
PROCMOVE is used to call the first image to 
the screen, and the program pauses for ^ of a 
second (Line 260) puts it back into RAM and 
then calls the second image onto the screen 
and again shows it with a delay of ^ of a 
second. This will keep on going until you 
press the j ESCAPE ] key. 
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The program for the Dragon and Tandy is 
slightly different from that used on the other 
machines for two reasons. For a start, it uses 
three, not two, pages and also, because the 
permanent software for these machines has 
already got the facility for eight pages of 
paged graphics — accessible through the 
PCOPY command — without machine code. 
The command has the simple form: PCOPY 
number of first page TO number of second 
page— PCOPY 1 TO 8, for example. In fact the 
alternation of the pages is so fast that a delay 
has to be built into the program to stop the 
images from being displayed too quickly. 

This program gives a fairly smoothly rotat- 
ing pointed star. ^ 



10PCLEAR8:PMODE2,1 

20SCREEN1,1:CLS 

30C = ATN(1)/45 

50FORN = 0TO2 

60 PCLS 

70FORK = 0TO360STEP45 

80LINE(127,95)-(127 + 59-StN 

(C-(K + N'15)),95-59"CCS 

(C'{K + N*15))),PSET 
90 NEXT 

100 PCOPY1T03 + N*2:PCOPY2T04 + N'2 
110 NEXT 

140FORN = 3TO7STEP2 
150PCOPYNTO1:PCOPYN + 1TO2 
160FORG = 1TO30:NEXTG,N 
170 GOTO 140 

Line 10 allocates the eight pages to graphics 
and selects PMODE 2 at page 1 to give black 
and white with medium resolution. In this 
mode, one screenful uses two of the internal 
graphics pages. In Line 20 the high resolution 
on graphics are turned on. 

The images that are to make up the three 
pages are set up by Lines 30 to 1 10 while Line 
100 PCOPYs each of these different images 
onto the internal graphics pages. Each of the 
screen displays takes up two of the internal 
pages and the first two pages of the internal 
pages are used to design the graphics. 

Lines 140 to 160 copy the stored pages into 
the display in sequence. There is a delay built 
into Line 160 because the alternation would 
otherwise be too quick. 
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Spin the reels and nudge yourself in 
the direction of Las Vegas with 
IIVPUT's Fruit Machine. Playing this 
machine won't put a squeeze on 
your pocket 



Old fashioned mechanical fruit machines are 
being replaced by modern electronic ones in 
many arcades, with a television screen being 
used to display the reels. This two-part article 
in Games Programming will show you how to 
imitate one of these machines using your 
micro. 

The game has all the features you would 
expect in a real fruit machine — hold, gamble, 
nudge, and so on — and there are animated 
graphics to simulate mechanical reels. 

Having a program like this to play with 
saves you losing huge amounts of money to 
the grasping one-armed bandits — although 
on the other hand, you won't win anything 
either! Now look at the section for your 
machine, and as usual, don't forget to SAVE 
this section of program ready for the second 
half. You won't be able to RUN the program 
successfully at this stage, although on some 
machines, you will see the basic graphics. 



'SETTING UP THE GRAPHICS 



Lines 120 to 140 hold the DATA for the 
coloured fruit. To economize on memory, the 
colour instructions are entered directly by 
control codes as explained on page 775 — and 
the listings appear in colour. To enter these 
line s, go into ext ended mode ( ICAPS SHIFf I 
and [SYMBOL SHIFT I), then press the appropri- 
ate colour key. Then enter graphics mode 
( [CAPS SHlFT l and 9), followed by the letters in 
the listing. 

10 LET HFLAG = 0: POKE 23658,8: RESTORE 

20: GOSUB 840 
20 DATA 14,31,31,31,31,15,3,1,56,252,252, 

252,252,248,224,192 
30 DATA 49,42,51,42,50,255,255,255,152,84, 

216,84,84,255,255,255 
40 DATA 3,4,8,28,62,62,62,28,28,190,125,62, 

28,0,0,0 
50 DATA 0,0,16,28,15,7,3,0,4,12,26,56,248, 

240,224,0 
60 DATA 0,0,7,15,31,31,15,7,8,248,240,240, 

224,224,192,128 
70 DATA 1,3,3,7,15,15,24,1,128,192,192,224, 

240,240,24,128 
80 DATA 1,7,15,31,31,31,31,15,224,240,240, 



240,240,224,192,128 
90 DATA 8,8,8,8,73,42,28,8,16,56,84,146,16, 

16,16,16 
100 FOR i = USR "a" TO USR "P"-f7: READ 

a: POKE i,a: NEXT i 
110 LET TOTAL = 100 
120 DATA "AB","IJ"," ", "CD", "IJ", 

"AB", "EF", "KL", "MN", "EF", " ", 



"^flM" 



130 DATA "IJ", "AB", "KL", "MN", "EF", 

" ", "DO", "EF", "AB", "CD", "M'N" 
140 DATA "EF", "MN", " ", "KL", "CD", 

"AB", "IJ", "AB", "IJ", "CD", "IJ", 

"MN" 
1 50 DIM A$ (24,4}: FOR i = 1 TO 1 2 READ 

A$(i): LETA${i-l-12)=A$(i) NEXT i 
160 DIM B$ (24,4): FOR i = 1 TO 12 READ 

BS{i):LETB${i + 12) = B${t) NEXTi 
170 DIM C$ (24,4): FOR i = 1 TO 12 READ 

C$=(i}:LETC$(i + 12) = C${i) NEXTi 
840 BORDER 7: PAPER 9: INK 2: CLS 
850 PRINT"" 
860 FOR i = TO 1: FOR j = TO 31: PRINT 

PAPER 7; AT i,j;"n": NEXT): NEXTi 
870 FOR 1 = 2 TO 5: PRINT AT i,0; PAPER 6; 

" Zl C n D "; AT i,28;" □ D D D ": 

NEXTi 
880 PRINT PAPER 6; INK 2;AT 0,8;"10 

PENCE A GAME" 
890 PRINT PAPER 6; INK 2;AT 

i,4;"nDnnnnnnDnDnn 
DDDnnnnnnnn ";AT 2,4;" 
nnnBHBBrBBPJBC 
BEBEBEBEIHnn" 

900 PRINT PAPER 6; INK 2;AT 

1 ,4;" nnnnnnnnnnnnn 
nnnnnnnnnn □";AT 3,4;" 
□□□HBBBrEBDBB 
BnBBEBEannn" 

910 PRINT PAPER 6; INK 2;AT 

1 ,4;" nnnnnnnnnnnnn 
nnnnnnnnnn n";AT 4,4; 
"nnnHCHEEnHEEH 
nnnBHEBnnnn" 

920 PRINT PAPER 6; INK 2;AT ■ 

i,4;"nnnnnnnnnnnnn 
nnnnnnnnnn n";AT 5,4; 

"DDDD"; INK0;"HHHHHH 

■■■■■■■■■■□□□ 

n" 

930 FOR i = 6 TO 1 4: FOR i = 8 TO 23 STEP 



5: PRINT INK 0;AT(,j," ": NEXT j: NEXTi 
940 FOR i = 8 TO 23: PRINT AT 1 5, i; INK 

0;"H": NEXTi 
950 FOR l = 6T0 21: PRINT PAPER 

6;AT 1,0;" D D D H H H D D ";AT 

i,24;"DnnnnnnD": NEXTI 

960 FOR I = 1 6 TO 21 : PRINT PAPER 6;AT 1,8; 

"nnnnnnnnnnnnnn 

nn":NEXTI 
970 PRINT INK 1: PAPER 8;AT 2,2;"\A/IN";AT 
2,27;"WIN";AT 3,2;"H H H";AT 

3 27'"n n n" 

980 PRINT INK 1; PAPER 8;AT 4,2;"10";AT 
4,27;"100";AT 6,2;"20";AT 8,2;"50";AT 
7,25;"JACKPOT";AT 8,25;"H H H H 

HHH" 

990 PRINT INK 1; PAPER 8;AT 20,3;"PRESS 
SPACE-TO SPIN REELS";AT 21,1;"0R 
HOLD OR NUDGE KEYS WHEN LIT" 

1000 PRINT AT 17,7;"nnn 1 0000 2 

n n n n 3 n n n n"; at i6,9; "■ 

■ ■■□■■■■□■■ 

■ ■" 

1010 PRINT at 18,7;"04 = 1 &205 = 2& 
306=1 &3";AT19,7;INK7; PAPER 2; 
"GHOLDKEYSI to6D" 

1020 RETURN 

Line 10 jumps to the subroutine at Line 860 
which draws the fruit machine. All the in- 
structions the player needs are displayed on 
the machine's front. 

Line 100 sets up the UDGs by READing 
from the DATA in Lines 20 to 90, The UDGs, 
when set up, appear in Lines 120 to 170 as 
DATA ready for the reels to be set up. a$, b$ 
and c$ are the three reels, and the order of the 
fruit on the reels is determined by the order of 
the DATA. 



THE REEL THING 



180 GOSUB 1030 

1030 PRINT A 5,0;A$(4): FOR X = TO 3 

STEP 2: PRINT AT7,X; A${4); "D": NEXT 

X: FOR X = TO 5 STEP 2: PRINT AT 9,X; 

A$(4):NEXTX:FORX = 0TO5STEP2: 

PRINT AT 10,X;A$(1);"n": NEXT X 
1040 PRINT AT 11,0;C$(2);C$(2);C$(2);AT 

12,0;B$(1);B$(1);B$(1) 
1 050 PRINT AT 5,26;C$(1 );C$(1 );C$(1 );AT 

6,26;C$(3);C$(3};C$(3);AT9,26;C$(4); 

C$(4);C$(4) 
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REPLACING MECHANICAL 



FRUIT MACHINES 



ARMLESS FUN 



USING YOUR MACHINE'S 
GRAPHICS TO THE FULL 



SETTING UP THE FRUIT 



GRAPHICS 



BUILDING THE REELS 



INITIALIZING THE MACHINE 
STARTING THE DISPLAY 




060 PRINT AT 7,10;A$(1);AT10,10;A$(2); 

AT 1 3 1 0-A$(3) 
070 PRINt'aT7,15;B$(1);AT 10,15;B$(2); 

AT13,15;B$(3) 
080 PRINT AT 7,20;C$(1 );AT 1 0,20;C$(2); 

AT13,20;C$(3) 
090 PRINT ATI 6,26; INK 2; PAPER 6; 

"NUDGE";AT 17,26;"KEYS";AT15,25; 

"Q-W-Ea";AT 18,25;"A-S-Dg]" 
100 PRINT INK 0; PAPER 7;AT 12,25; "Q 

^yUUUD'^ AT 13,25; "r|"; 

AT 13,31; "C"; AT 14,25; "[5HPG 



HHE]";AT13,26;INK2;"BBB 

■ ■" 
1110 PRINT PAPER 6; INK 0; INVERSE 1; AT 

15,0; "TOTAL"; INVERSE 0; AT 17,0; "£"; 

AT 18,0; "p"; AT 17,1; PAPER 7; BRIGHT 

1;"n DO"; AT 18,1; TOTAL 
1120 PRINT #1; AT 0,0; "D D D D YOU 

START WITH ONE POUND" 
1130 PAUSE 
1140 PRINT #1;AT0,0;"nnDnDnn 

nnnnnnnnnnnnnnn 
nnnDDannnn" 



1150 RETURN 

The subroutine starting at Line 1030 draws 
the reels at their starting positions and com- 
pletes some of the display details. The player 
is told that he starts with one dollar — each 
spin costs ten cents. 



INITIALIZATION 



40 POKE53280,0:POK£53281,0:A$- 



33 



iliiini 



"nPLEASE":B$ = "nWAIT!n":C$ = 

"dsa^i^iiniiis" 

45 PRiNT"aH jgaHHMHSH": 

FORA = 1T07;FORB = 1T013:PRINT"n"; 

MID$(C$A1);SPC(8);A$; 
50 PRINnAB(33 - e);B$: NEXTBrPRINT; 

NEXTA 
55POKE52,48:POKE56,48:CLR;POKE56334, 

PEEK(56334)AND254:POKE1,PEEK(1)AND 

251 
60 FORA = 0TO1 023: POKEA + 1 2288,PEEK 

(A + 53248) :NEXT:P0KE1 ,P££K(1 }0R4 
65POKE56334,PEEK{56334)OR1:POKE53280, 

8;F0RA = 0TO655:READB:POKE1 2288 + A, 

B: NEXTA 
10000 DATA255,21 3,253,253,253,253,21 3,255 
1 0005 DATA255,1 27,1 27,1 27,1 27,1 27,87,255 
1 001 DATA255,21 3,255,21 3,21 3,21 5,21 3,265 
1 001 5 OATA255,87,21 5,87,87,255,37,255 
10020 DATA255,21 3,255,253,253,255,21 3,255 
1 0025 DATA255,87,21 5,87,87,21 5,87,255 
10030 DATA255,21 5,21 5,21 3,213,255,255,255 
1 0035 DATA255,21 5,21 5,87,87,21 5,21 5,255 
1 0040 DATA255,21 3,21 5,21 3,21 3,255,21 3,255 
1 0045 DATA255,87,255,87,87,21 5,87,255 
1 0050 DATA255,204,0,240,252,204,204,240 
1 0055 DATA255,204,0,48,252,204,204,252 
1 0060 DATA252,204,0,240,252,204,204,240 
1 0065 DATA204,204,252,240,0,204,255,0 
1 0070 DATA204,204,204,204,0,204,255,0 
10075 DATA204,204,204,204,0,204,252,0 
10080 DATA0,0,0,3,3,1 5,1 5,0 
1 0085 DATA48,252,252,255,255,255,255,0 
10090 DATA0,0,0,0,0,1 92,192,0 
10095 DATA1 5,1 5,3,0,0,0,0,0 
1 01 00 DATA255,255,255,252,48,63,1 5,0 
10105 DATA1 92,1 92,0,0,0,0,0,0 
10110 DATA0,3,15,15,15,15,15,15 
10115 DATA0,255,243,252,252,252,252,252 
1 01 20 DATA0,0,1 92,1 92,1 92,1 92,1 92,1 92 
10125 DATA1 5,1 5,1 5,3,3,0,0,0 
1 01 30 DATA252,252,252,243,255,252,0,0 
10135 DATA 192,192,192,0,0,0,0,0 
1 01 40 DATA0,0,1 0,34,1 70,1 36,1 70,1 62 
1 01 45 DATA1 2,48,254,1 86,42,1 62,1 70,34 
1 01 50 DATA0,0,1 28,32,1 68,40,1 68,1 36 
10155 DATA1 70,40,1 0,2,0,0,0,0 
10160 DATA0,0,0,0,0,0,0,0 
1 01 65 DATA1 68,1 38,1 70,34,1 68,1 68,32,0 
10170 DATA1 02,1 02,1 02,0,0,0,0,0 
10175 DATA1 68,1 60,1 28,0,0,0,0,0 
10180 DATA0,0,0,0,0,3,3,3 
10185 DATA4,16,84,252,252,255,255,255 
10190 DATA0,0,0,0,0,0,0,0 
10195 DATA3,1 5,1 5,1 5,1 5,1 5,3,0 
1 0200 DATA255,255,255,255,255,255,255, 
1 0205 DATA0,1 92,1 92,1 92,1 92,1 92,0,0 
10210 DATA0,0,0,0,1,1, 1,1 
10215 DATA1 6,1 6,84,68,81 ,81, 81 ,81 
10220 DATA0,0,0,0,0,0,0,0 
10225 DATA1, 5,21 ,85,0,0,0,0 



10230 DATA81 ,84,85,85,1 6,0,0,0 

10235 DATA0,64,1 6,84,0,0,0,0 

1 0240 DATA252,204,204,204,204,204, 

252,0 
1 0245 DATA240,48,48,48,48,48,252,0 
1 0250 DATA252,1 2,1 2,252,1 92,1 92,252,0 
1 0255 DATA252,1 2,1 2,60,1 2,1 2,252,0 
1 0260 DATA204,204,204,252,1 2,1 2,1 2,0 
1 0265 DATA252,1 92,1 92,252,1 2,1 2,252,0 
1 0270 DATA1 92,1 92,1 92,252,204,204,252,0 
1 0275 DATA252,1 2,1 2,1 2,1 2,12,1 2,0 
1 0280 DATA252,204,204,252,204,204,252, 
1 0285 DATA252,204,204,252,1 2,1 2,1 2,0 
10290 DATA0,0,0,0,1 0,32,40,42 
1 0295 DATA1 2,48,48,240,1 2,1 30,1 30,1 30 
10300 DATA0,0,0,0,160,8,136,168 
10305 DATA1 0,0,0,0,0,0,0,0 
1 031 DATA0,40,1 30,1 62,1 70,40,0,0 
10315 DATA1 60,0,0,0,0,0,0,0 
10320 DATA252,1 92,1 92,1 92,1 92,1 92,252, 
1 0325 DATA240,204,204,204,204,204, 240,0 
1 0330 DATA252,1 92,1 92,240,1 92,1 92,252, 
1 0335 DATA252, 1 92, 1 92,240, 1 92, 1 92, 1 92, 
1 0340 DATA48,204,1 92,1 92,204,204,60,0 
1 0345 DATA204,204,204,252,204,204,204,0 
1 0350 DATA252,48,48,48,48,48,252,0 
1 0355 DATA1 92,1 92,1 92,1 92,1 92,1 92,252,0 
1 0360 DATA1 92,240,252,204,204,204, 

204,0 
1 0365 OATA48,204,204,204,204,204,48,0 
1 0370 DATA240,204,204,240,1 92,1 92,1 92,0 
1 0375 DATA240,204,204,240,204,204, 

204,0 
1 0380 DATA48,204,1 92,48,1 2,204,48,0 
1 0385 DATA252,48,48,48,48,48,48,0 
1 0390 DATA204,204,204,204,204,204,48, 
1 0395 DATA1 2,48,48,252,48,240,204,0 
10400 DATA0,0,0,60,60,0,0,0 
1 0405 DATA255,255,255,255,255,255,255, 255 

Lines 40 to 50 set up a display asking the 
player to wait. The Commodore 64 takes 
some time to set up the UDGs needed 
for the fruit. 

Lines 55 to 65 READ the DATA from the end 
of the program— see Lines 10000 to 10405— 
to set up the UDGs. 



flMSTRUCTIONS 



70POKE53282,7:POKE53283,2:POKE53280,7: 

POKE53281,7 
75 PRINT"aH";CHR$(14};SPC(15};"H 

□nHHBBcaniD" 

80 PRINT" Ha [J OU HAVE £1 TO START 

WITH. □TIS10PA" 
85 PRINr'GAME AND YOU PLAY UNTIL YOU 

HAVE NO" 
90 PRINT"MONEY LEFT.":PRINT"H1]B 

niaKHDUffl:-" 

95PRINT"HIB<Hin*BH>", 



"-fflPIN REELS/GAMBLES" 
100 PRINT"<1>","-HANCELS HOLDS" 
105 PRINT" <2>","- [HOLD LEFT REEL" 
110 PRINT" <3>","-LD0LD MIDDLE 

REEL" 
115 PRINT" <4>","[]]0LD RIGHT REEL" 
120 PRINT" <5>","-0UDGE LEFT REEL 

□ □" 

125 PRINT"<6>","-0UDGE MIDDLE 

REELQn" 
130 PRINT"<7>","-0UDGE RIGHT 

REELQn" 
135 PRINT" <8>","-0UDGE LEFT REEL 

140 PRINT" <9>","-0UDGE MIDDLE 

REELHnS0" 
145 PRINT" <0>","-0UDGE RIGHT 

REELano0" 

i50PRiNr'<HHC[3Bizi>", 

"-gOLLECTWlN" 
155 PRINT'HHHUnLEASE PRESS THE 

H PACE- BAR TO PLAY..." 
160 GETA$:IFA$<>"n"THEN160 

Lines 70 to 160 set up the instructions screen. 



PREPARING THE GAME 



165PRINT"Q";CHR$(142):POKE53280,10: 

POKE53281,10:POKE53272,29 
170POKE53270,PEEK(53270)OR16:POKE 

53282,7:POKE53283,2:IFXX = 1THEN190 
175DIMR1%{15),R2%(15),R3%(15),W%(9), 

F$(6) 
180FORA = 0TO15:READR1%(A),R2%(A), 

R3%(A}:NEXT:F0RA = 0TO9: READW% 

(A): NEXTA 
185 FORA = 0TO6:READF$(A):NEXTA 
190POKE53280,13:POKE53281,1:PRINT 

"□ a"=F$(3);"a |J";F${3)i"n II"; 
F$(3); 

195 PRINT" □ijuijunn2n00": 

PRINT"H",F$(2);"nU";F$(2); 
"nU";F$(2); 

200PRiNr'niiiiiiijHi::]in50": 

PRINT"H",F$(5);"niJ";F$(5); 
"aU";F$(5); 

205 PRINT"n nil UU a ni DM": 

PRINr'H",F$(4);"nU";F$(4); 

■'nH";F$(4); 
210 PRINT"nUU|||jnD0n80": 

PRINT"H",F$(6);"nil";F$(6); 

"nU";F$(6); 

215 PRiNr'nMiiimtsnene©": 

PRINT"H">F$(0};"nU";F$(0"); 
"nU";F$(0); 

220 PRiNT-nuiiiiiiansnw: 

PRlNT"H",F$(1);"nM";F$(1); 

"DII";FS(i); 

225 PRINT" nu II iiuan0n30": 

PRINT"a">F$(0);"D||";F${0);"n 

unnnns'; 



Hill 
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1.0 CENTS A CAME 



rr* 5UPERFRUIT t*: 




PRESS SPOCI 
OR HOLD OR HUC-GE I- ( 

VOU STRRT UITM I L 





J-U-C t 
MODGC 

1 t. ^A-S-D 4^ 



Colourful graphics adorn SUPERFRUIT on the Acorn 



.and SUPERFRUIT on the Spectrum 



230 PRINT" nuij' II uan^nso": 

PRINT"a",F$(1),"nU'"F$(1);"n 

uannna"; 

235 PRiNr'nyuufcinnensfl": 

pRiNT"H",F$(i};"nunnnn 
unnniiiiuunenir 

240 PRINT HJ^UUUUUUIJU 

uuuuunQEimGGnn 
□EriHiaEian"; 

245 GETA$:IFA$<>CHR$(13)THEN245 
10410 DATA0,1, 2,3,5,6,6,2,0,5,3,4,4,6,5,6,4, 
3,1,2,0,3,0,5,2,1,4,6,5,1,0,6,6 

10415 DATA1, 4,3,2,0,1, 5,3,2,4,6,6,6,4,5 
10420 DATA200,1 50,1 00,80,60,40,30,20,10, | 


1 0425 DATA" n* + , Mil II 11--/", 

"■|:^<BIIIIII->?'V'||PQRB 

||||||STU","nJKLa||||||MN 

0" 
10430 DATA"||£]tg||||||4-!#", 

" □ VWXIS II II II YZ[","||$%&a 

II II IK) 

Lines 170 to 185 prepare the reels. The arrays 
DIMensioned in Line 175 are used as follows: 
R1 %, R2% and R3% contain the arrangement 
of the fruit on each of the reels, W% are the 
wins from each of the win lines, and F$ the 
information necessary to display the fruit. 
The arrays are filled with DATA READ from 
Lines 10410 to 10430. 

Lines 190 to 245 set up the second screen 
the player sees — the winning line 
information. 



SETTING UP THE MACHINE 



250 POKE53280,0:POKE53281,1: PRINT 
"□ir;:F0RA = 1TO24 

255 pRiNT"HnHHHnHnnn 

^H iB Bl Bl ^B ^B IB HI ^B IH HI ^B IH 

IWI 1^1 IWI Iwl IWI fwi 1^1 Iwi 1^1 1^1 1^1 I^W I^W 

fflQ■] QKi QH [jKI ^B ^B IS] I^B l^B ISI [SI [S| 
1^1 fWi 1^1 IWi HI Wj «] HI «! iM Im !H 

n n n n";:NEXT:FORA = 1 934TO2023 



260 P0KEA,81:P0KEA + 54272,13:NEXTA: 

pRiNT-gH'v'uuuunnu 

0C3[DE]BE]IZIBHn" 

265 PRINT"@HHH"vFORA = 0TO9: 

PRINT uuiiUIJIJIinnnn 

niiUnnnnnUUnnnn 
□ UUSSD ; 

270 A$ = RIGHTS('*00" + MID$(STR$(W% 

(A)),2),3):PRtNTL£FT$(A$,1);"n"; 
RIGHT$(A$,2); 

275 PRINr'|||J|J|J|||J||";:NEXTA 

280 PRINT auutifeiuuiisan 

Ram^uunaEic^uii 

3BE]C": 

285 PRINT all auuuiJiiiiu 

uuuuuuuuuunnoiz] 

I^Bm^SU@A|]BCUDE|JFG|| 

H1UUUUUUIJIJIJII ; 

290 PRINT aauuuuuuuu 

UUUUUBEim^BISllJIJ 

r-|0"; 
295M = RND(-TI):)VI = 100:H%=-1:I% = 

-1:J%=-1:P%=INT(RND{1)*16):Q% 

= INT(RND{1)M6) 
300 R%=INT(RND(1)*16):N% = 
305GOSUB9500 

Lines 250 to 305 draw the fruit machine with 
windows ready for the reels, and the nudge, 
gamble and money areas. 



GRAPHICS AND SOUND 



Don't type in Line 10 until you are sure the 
program is finished and debugged. 

10ONERRORRUN 

20 VDU23,224,1 ,3,7,7,1 5,1 5,1 5,31 ,23,225, 
1 28,1 92,96,1 60,1 76,208,208,21 6,23,226, 
31 ,63,63,63,63,3,1 ,0,23,227,232,252,252, 



252,252,192,128,0 

30 VDU23,228,0,0,0,3,7,1 4,31 ,1 5,23,229,0,0, 
0,0,1 28,1 92,96,1 92,23,230,7,27,60,1 1 8, 
251 ,1 26,60,24,0,23,231 ,1 52,60,1 1 8,251 , 
1 26,60,24,0,23,232,1 5,248,1 28,0,0,0,0,0 

40 VDU23,233,0,1 ,1 ,3,3,7,7,1 5,23,234,1 28, 
192,192,224,224,240,240,248,23,235,15,0, 
1 5,7,3,3,1 ,0,0,23,236,248,0,248,240,224, 
192,136,240 

50 VDU23,237,255,0,255,255,0,225,1 46,227, 
23,238,255,0,255,255,0,142,73,206,23, 
239,146,226,0,255,255,0,255,0,23,240,73, 
73,0,255,255,0,255,0 

60 VDU23,241 ,0,2,1 5,27,30,55,63,23,23,242, 
0,8,60,246,254,223,123,238,23,243,31,13, 
7,7,2,3,1,0,23,244,190,236,120,248,208, 
240,224,1 92,23,245,32,64,1 92,0,0,0,0,0 

70VDU23,246,0,0,0,0,3,3,7,7,23,247,0,0,0, 
0,240,21 6,21 6,220,23,248,1 5,1 5,1 5,7,7,3, 
3,1,23,249,236,252,252,248,240,240,224, 
192,23,250,12,112,64,240,0,0,0,0 

80VDU23,251,0,0,0,0,0,1,3,3,23,252,0,0,0, 
1 92,1 92,224,1 60,1 76,23,253,7,7,1 5,1 5,31, 
31 ,1 5,7,23,254,208,208,248,248,252,252, 
248,240,23,255,28,1 1 2,1 92,0,0,0,0,0 

90 *FX9,5 

100*FX10,5 

110'FX11,0 

120A%=RND(-TIME):@% = 0:ENVELOPE 
1,1,1,1,0,5,5,0,126,0,0,-8,126,0 

Each of the lines contains instructions for 
drawing the fruit graphics in a VOL) statement. 
Line 20 is the bell; Line 30, the cherry; Line 
40, the acorn; Line 50, the bar; Line 60, the 
strawberry; Line 70, the blueberry; and Line 
80, the pear. Lines 90 and 100 set the flash 
rate, while Line 1 10 turns off the auto repeat. 
Line 120 chooses a random seed, and sets 
each of the 14 parameters needed for the 
ENVELOPE for the blip, 
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INSTRUCTIONS 



130MODE6:VDU23;8202;0;0;0;:PRINT'TAB 

(13)"SUPERFRUir" 
140 PRINTTAB(3)"WELC0ME TO THE BBC 

FRUIT MACHINE !" 
150 PRINT" n You are given £1 to start with. It 

costs 10p per game to play and you play 

until you run out of money." 
1 60 PRINT'"Controls :""" < SPACE > D D - 

n Spin reels/gambles'"" < 1 > D D D D 

D D - D Cancel Hold'"" < 2 > D D D 

D D D - D Hold left reel" 
170 PRINT" <3> anna DD-DHold 

middle reel'"" <4>nnnnnn-n 

Hold right reel'"" <5>DDnnDD 
— D Nudge left reel up" 

180 PRINT" <6>nnDaDn-n 

Nudge middle reel up'"" < 7 > D D D D 
D D - D Nudge right reel up"'" < 8 > O 
D D □ D D - D Nudge left reel down" 

190 PRINT" <9>nnnann-n 

Nudge middle reel down""'<0> D D D 
D D D - □ Nudge right reel down'" 
"< RETURN > n - n Collect winnings" 
200 PRINTTAB(4,24)"Press the space-bar to 
continue... ";:'FX15,1 

Lines 140 to 200 set up the first screen the 
player sees — the instructions that are needed 
for playing the game. 



PREPARING THE GAME' 



The symbol □ denotes the underline 
character: 

210REPEATUNTILGET=32:MODE2:VDU19;7; 

0;19,7;0;0,23;8202;0;0;0;1 9,8,1 ;0;1 9,9,1 ; 

0;1 9,1 0,1 ;0;1 9,1 1 ,1 ;0;1 9,12,1 ;0;1 9,1 3,9;0; 

19,1 5,1 2;0; 
220DIMF$(6)',R1%(15),R2%(15),R3%(15), 

W%(9) 
230 FORA% = 0TO6: REPEAT: READB%:F$(A%) 

= F$(A%) + CHR$B%:UNTILB% = 1 3:F$ 

{A%) = LEFT$(F$(A%),LEN(F$(A%)) -1): 

NEXT 
240DATA18,0,7,237,238,8,8,10,239,240,13, 

1 8,0,2,233,234,8,8,1 0,235,236,1 3,1 3,0,4, 

246,247,8,8,1 0,248,249,8,1 1 ,18,0,5,250, 

1 3,1 8,0,1 ,241 ,242,8,8,1 0,243,244,8,1 1,18, 

0,2,245,1 3 
250 DATA18,0,2,251, 252,8,8,10,253,254,8,11, 

1 8,0,7,255,1 3,1 8,0,3,224,225,8,8,1 0,226, 

227,1 3,18,0,1 ,228,229,8,8,1 0,230,231 ,8, 

11,18,0,2,232,13 
260 FORA% = 0TO15:READR1%(A%),R2% 

(A%),R3%(A%):NEXT 
270 DATA0,1 ,2,3,5,6,6,2,0,5,3,4,4,6,5,6,4,3,1 , 

2,0,3,0,5,2,1 ,4,6,5,1 ,0,6,6,1 ,4,3,2,0,1 ,5,3, 

2,4,6,6,6,4,5 
280 FORA% = 0TO9:READW%(A%):NEXT 
290 DATA200,1 50,1 00,80,60,40,30,20,1 0,0 



300 PROCwinlines 

1 040 DEFPROCwinlines:VDU5:M0VE64,992: 
PRINTSTRING$(3,F$(0) + 
CHR$11+CHR$32};:GCOL0,6: 
PRINT"Gn£2.00" 

1050 MOVE64,896:PRINTSTRING$(3,F$(1) + 
CHR$11 +CHR$32);:GCOL0,6:PRINT 
"□n£1.50":MOVE64,800:PRINT 
STRING$(3,F$(2) + CHR$32);:GCOL0,6: 
PRINT"an£1.00" 

1060 MOVE64,704:PRINTSTR!NG$(3,F${3) + 
CHR$32);:GCOL0,6:PRINT"DnC0.80": 
MOVE64,608:PRINTSTRING$(3,F$(4) + 
CHR$32);:GCOL0,6:PRINr'Qn£0.60" 

1070MOVE64,512:PRINTSTRING$(3,F$(5) + 
CHR$32 + CHR$1 1 );:GCOL0,6:PRINT 
"□n£0.40":MOVE64,416:PRINT 
STRING$(3,F$(6) + CHR$32);:GCOL0,6: 
PRINT"QD£0.30" 

1080 MOVE64,320:PRINTSTRING$(2,F$(5) + 
CHR$32 + CHR$11);"GDa"i:GCOL0, 
6:PRINT"Qn£0.30":MOVE64,224:PRINT 
STRING$(2,F$(6) + CHR$32);"a O G ";: 
GCOL0,6:PRINT"QnC0.20" 

1090MOVE64,128:PRINTF$(6); 

"nDnnQnn";:GCOL0,6:PRINT 
"□D£0,10":GCOL0,15:MOVE64,32: 
PRINr'DDSpace to start" 

1100 "FXI 5,1 

1110 REPEATUNTILGET=32:VDU4:CLS: 
ENDPROC 

After setting up the graphics mode in Line 
210, four arrays are DIMensioned. 

The next section of program contains DATA 
for the arrays. F$ contains the information 
needed to colour each fruit — they are PRINTed 
after a VDU 5, with the colour set by GCOL0, 
followed by the colour number, or in charac- 
ter codes. 'r1%, R2%, and R3% contain the 
contents of the reels, each number corre- 
sponding to a fruit. The final array, W%, 
contains the amounts paid out, in ascending 
order. 

Line 300 calls PROCwinlines— to be found 
at Lines 1040 to 1110 — which sets up a 
display telling the player what the winning 
combinations are. 



DRAWING THE MACHINE 



310COLOUR130:CLS:COLOUR128:VDU28,3, 
15,6,4,1 2,28,8,1 5,1 1 ,4,1 2,28,1 3,1 5,1 6,4, 
12,26:COLOUR130:COLOUR3:PRINTTAB 
(5,1);"SUPERFRUIT" 

320 VDU5:FORA% = 1T05:VDU29, 

224 + (A% - 1 ) •96;224;:IViOVE0,0:GCOL 
0,7 + A%:F0RA = 0TO2"PI D STEPPI/1 5: 
MOVE0,0:PLOT85,30"SINA,30*COSA: 
NEXT:MOVE-32,8:GCOL0,0:PRINTA%: 
NEXT 

330 VDU29,0;0;:GCOL0,4:FORA% = 0TO2: 



MOVE192-)-A%*320,384:PROChbo)(:NEXT 
340M% = 100:H% = TRUE:I% = TRUE:J% = 
TRUE:P%=RND(16)-1:Q%=RND(16 
-1:R%=RND(16)-1:N% = 
350@% = &2020A:GCOL0,4:MOVE256,160 
PRINT"NUDGE":MOVE704,152:GCOL0,1 
PRINT"GAMBLE":GCOL3,4:MOVE256,60 
PRINr'Creditn£";M%/100 

Line 3 10 clears the screen to green, sets up the 
white reels, and PRINTs the title. The nudge 
lights are drawn in Line 320, while the blue 
hold boxes are draw'n tn Line 330. 

Line 340 initializes a series of variables, 
H%, 1%, and J% are hold flags for the reels— 
FALSE if held, TRUE if free. M% is money; P%, 
Q% and R% are pointers to each reel, and N% is 
the number of nudges available. 

Finally, in this section of program, Line 
350 sets the format — two decimal places — of 
the money display. 

If you RUN the program at this stage it will 
stop with an error in Line 330 as PROChbox is 
undefined so far. 



ma 



SEHING UP THE GRAPHICS 



10PMODE3,1:PCLS:CLS 

20 DIM B(12),C(12),A(12),BR(12),S(12), 

PL(12),P(12),R1(15),R2(15),R3(15),W(9), 

H(29) 
30DRAW"BM16,0C2L2GLG4DG4D2R7FRFR3 

ERER7U2H4UH4LH":PAINT(14,10):DRAW 

"BM17,2C1F4DF" 
40GET(0,0)-(31,15),B,G 
50DRAW"BM62,0C2L6GL6G2C4L3GLGLGFD 

GLGLGLGFRFRFR3ERERER5FRFR3ERERE 

HLHLHL5HEHLHLH":PAINT(48,8):DRAW 

"BM41,8C1FRFRFRNFUR2UR2URBM-4, 

-2HBM-5,7HBR17H" 
60GET(32,0}-(63,15),C,G 
70DRAW"BM80,0C3G8R17NH8BD2LNL15GL 

GLGLGL3NH3RFR7E":PAINT(80,4):PAINT 

(80,13} 
80GET(64,0}-(95,15),A,G 
90DRAW"BM96,0C4R30BD2L30DR30BD6U 

BU2HL4D2NR4D2BL7U3HL3GDNR4D2BL1 

2R4EHEHL5D2NR2D2BD2R30DL30BD2R3 

0" 
100 GET{96,0)-(1 27,1 5),BR,G 
110DRAW"BM148,0C2GL3GC4LHLGL3G4RF 

3RF5RFR3ERE4UER2E3LH3LHLGL5GL": 

PAINT(144,8):DRAW"BM138,3CVRBR13RB 

DBL10LBDBL5LBDBR8RBR9RBDBL4LBL 

13LBDBR10RBR4BDLBL9LBDBR4RBG2LB 

R6R" 
120GET(128,0)-(159,15),S,G 
130DRAW"BM186,0C3L2GL5DGR6DF4DG2L 

G3LGL5H6£5R2":PAINT(176,8):DRAW"BR 

6BDC1D2F" 
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140GET(160,0)-(191,15),PUG 

1 50 DRAW"BM21 8,0C2L4DL3D3F4DF4LGLGL 

13HLHUE7REU2":PAINT(208,8):DRAW 

"BM211,6C1DF2" 
160 GET(1 92,0)- (223,1 5),P,G 

The Fruit Machine is drawn in PM0DE3, and 
the GET and PUT commands are used to 
display the fruit symbols on the reels. The 
arrays needed for the fruit symbols are 
DIMensioned in Line 20 — B for the bell, C, for 
the cherry, A for the acorn, BR for the bar, S 
for the strawberry, PL for the plum, and P for 
the pear. R1, R2 and R3 are the contents of the 
three reels; W contains the win amounts; and 
H is used for holding the reels. 

Each pair of lines from Line 30 to Line 160 
DRAW the fruit and then GET them into the 
appropriate array. 



INSTRUCTIONS 



170 B$ = CHR$(128):CLS:PRINT@9, 

B$"superfruJt"B$ 
180 PRINT" YOU HAVE $1 TO START WITH. IT 

IS 10C A GAME AND YOU PLAY UNTIL Q 

D n YOU HAVE NO MONEY."; 
190 PRINT"controls:-":PRINT" < SPACE > " 

TAB(8)"-SPIN REELS/GAMBLES":PRINT 

"<1 >"TAB(8)' -CANCELS HOLDS" 
200 PRINT"<2>"TAB(8)"-HOLD 

LEFTREEL":PRINT"<3>'TAB(8) 

"-HOLD MIDDLE REEL": 

PRINT"<4>"TABt8)"-HOLD RIGHT 

REEL" 
210 PRINT" <5>"TAB(8)"-NUDGE 

LEFT REEL UP":PRINT"<6>" 

TAB(8)"-NUDGE MIDDLE REEL UP": 

PRINT" <7>"TAB(8}"-NUDGE RIGHT 

REEL UP" 
220 PRINT" <8>"TAB(8}"-NUDGE 

LEFT REEL D0WN":PRINT"<9>" 

TAB(8}"-NUDGE MIDDLE REEL 

DOWN":PRINT"<0>"TAB(8) 

"-NUDGE RIGHT REEL DOWN": 

PRINT" < ENTER >"TAB(8} 

"-COLLECT WIN"; 

Lines 170 to 220 display the instructions on 
the text screen. 



PREPARING THE MACHINE 



230 IF INKEY$<>"n" THEN 230 
240FORA = 0TO15:READR1(A),R2(A),R3(A): 

NEXT 
250 DATA 0,1,2,3,5,6,6,2,0,5,3,4,4,6,5,6,4,3, 

1 ,2,0,3,0,5,2,1 ,4,6,5,1 ,0,6,6,1 ,4,3,2,0,1 ,5, 

3,2,4,6,6,6,4,5 
260 FORA = 0TO9:READW(A):NEXT 
270 DATA 200,150,100,80,60,40,30,20,10,0 
280 GOSUB4000 
290SCREEN1,0:PCLS3:DRAW"BM84,4C2S20 

LDRDLBR2NU2RU2BRND2RDLBEBRNRD 



NRDRBRU2RDLFBRUNRURBRND2RDLFB 

RNU2RU2BRD2BR2U2LR2" 
300 FORK = 0TO2:LINE(40 + 64'K,20) 

- (87 + 64"K,1 1 5),PRESET,BF:NEXT 
310 FORK = 0TO2:DRAW"BM" + STR$ 

(40 + 64-K) + ",1 24S1 6R1 2D4L1 2U4BFD2 

BRUNLUBR2RD2LU2BR3D2RBR2U2S8RF 

D2GL":NEXT 
320 GET(38,122)- (91,143), H,G 
330 G0L0R4:F0RK = 1 T05:LINE(1 + K'1 6, 

158)-(21+n6,169),PSET,BF:NEXT 
340DRAW"BR30C1S24U2F2U2BRD2RU2BRD 

2S8RE2U2H2LS24BR3LD2RUBENRDNRD 

R" 
350 GOTO 350 

4000CLS:PRINT@11,"winlines" 
401 PRINT@65,"BAR D D D D BAR D D 

nnBAR":PRINr'nACORNnnACORN 

n nACORN":PRiNT"nPLUMn n n 
PLUMnnnPLUM" 

4020 PRINr'DSTRWBYDSTRWBYD 
STRWBY":PRINT"nPEARnnnPEARn 
D DPEAR":PRINT"nBELLn D DBELL 

DDDBELL" 
4030 PRlNT-nCHERRYDCHERRYD 



CHERRY":PRINT"n BELLD D DBELLD 
D n n n - ":PRINT"nCHERRYn 
CHERRYD n n -":PRINT"nCHERRYn 

nn-nnnnnn-" 

4040 FORA = 0TO9:IF A<7 THENPRINT 

@89 + A-32,USING"$$ # . # # ";W(A)/ 

100;:GOTO4060 
4050PRINT@89 + A*32,USING 

"$$#.# #";W(A-1)/1 00 
4060 NEXT 
4070 PRINT@449,"PRESS SPACE TO 

CONTINUE" 
4080 IFINKEY$<>"n" THEN4080 
4090 RETURN 

Lines 240 and 250 set up the reels — each 
number represents one of the fruit. Lines 260 
and 270 set up the win values. Line 280 
jumps to the subroutine starting at Line 4000 
which displays the winning lines and their 
values. 

Lines 290 and 340 initialize the screen. 
Notice that Line 290 switches on the high 
resolution screen for the first time so the 
completed machine appears. 
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You can't have a Cliffhanger without 
a cliff. It's now time to slip on the 
slope which Willie will have to scale, 
plus the sky above it and the land 
below 



The titles and credits have rolled. The over- 
ture has played. Now's the time to roll on the 
scenery — or in the case of Cliffhanger, 
INPUT'S computer game — to scroll on the 
scenery. 

This is a fairly simple process. You already 
have the data which defines the profile of the 
slope. Above the slope is sky and below it is 
the land — and they are simply a matter of 
fining in colours. But then you have to scroll 
off the instruction page and scroll on the sky 
and slope. 



The routine listed below scrolls on the 
scenery. 



Id de,32 
add lil,de 
pop be 
djnz Ig 
ret 



elb 



me 



ret 

org 58155 

org 58217 



Isi 



org 58303 

lcla,16 
Id (57328),a 
Id ix,5B034 
Id b,32 
push be 
call sol 
lda,0 

Id (57329),a 
lda,(ix + 0) 
dec ix 
cp 33 
jr nZjIv 
dec b 

Id a,(57328) 
dec a 

Id (57328),a 
ida.l 

Id (57329),a 
Id a,(57328) 
ldb,a 
Id hl,31 
Id a,45 
call Ig 

Id bc,57264 
Id 3,(57329) 
cp 1 
jr nz,3 
Id bc,57272 
id a,44 
call print 
Id a,(57328) 
ldb,a 
Id a,23 



scl 

Ipi 
Ipi 



sub b 
ldb,a 
Id a,32 
Id de,32 
add hl,de 
call Ig 
pop be 
djnz 175 
Id hl,49 
ldb,12 
Id a,41 
Id ix,57973 
call me 
ldhl,113 
ldb,7 
call me 
call elb 
ret 

Id hl,16384 
ldb,216 
Id c,31 
inc hi 
Id 3,(hl) 
dec hi 
Id (hl),a 
inc hi 
dec c 
jr nz,lpj 
inc hi 
djnz Ipi 
ret 

push be 
ldbc,15616 
call print 



print 
And you need some extra data: 

5 CLEAR 57000 

1 FOR n = 57973 TO 58034 

20 READ a: POKE n,a: PRINT n;" ";CHR$ a 

30 NEXT n 

40 DATA 83,67,79,82,69,45,48,48,48,48,48,48, 
76,73,86,69,83,45,53,71,65,77,69,32,79,86, 
69,82,32,33,33,33,35,35,33,35,35,35,33,35, 
35,33,35,33,35,35,35,35,33,35,33,35,35,35, 
35,33,35,35,33,35,35,35 



SETTING THE SCEME 



The Y coordinate — 16 — of the top right of the 
horizon is loaded in the first workspace 
location, memory location 57,328. Then the 
last byte of the slope profile data is loaded into 
the IX register pair. The last byte of the slope 
profile data is the one that defines the slope of 
the top right-hand end of the horizon, of 
course. 

The B register is loaded with 32 so that it 
can be used as a counter to count across the 32 
columns of the screen. This is then stored on 
the stack. 

The scl routine is called. This is the routine 
that scrolls the screen to the left. 

The second workspace, memory location 
57,329, is going to be used as a flag to tell the 
routine whether the slope is level or it is going 
down. A in this location means that the 
slope contimies flat. A 1 means that it is going 
down. But to initialize it the contents of this 
location are set to zero. 

The Id a,(ix+0) instruction loads the 
accumulator with the last byte of the contour 
data. The zero offset is used here because the 
indirect addressing with the IX register has to 
be indexed. There is no Id a,(ix) instruction. 
The IX register is then decremented so that it 
points to the next byte of data. 

The cp 33 compares the contents of the 
accumulator with 33 — the data byte that tells 
the routine that the slope goes down. If the 
contents of the accumulator are not 33 — in 
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PICKING UP THE PROFILE DATA 



SCROLLING IT ON 



THE EDGE GRAPHICS 



COLUMNS OF COLOUR 



REDEFINING CHARACTERS 



The 'CUFFHANGER' listings published in this 
magazine and subsequent parts bear absolutely no 
resemblance to, and are in no way associated with, 
the computer game called 'CLIFF HANGER' re- 
leased for the Commodore 64 and published by 
Mew Generation Software Limited. 




other words the slope continues flat— jr nz,lv 
jumps straight on to the Iv routine. 

If it is going down the B counter and the Y 
coordinate of the landscape — stored in 
57,328 — are decremented. And the flag in 
57,329 is set to I. Then the program is ready 
to go into the Iv routine. 



THE LV ROUTINE 



The Y coordinate of the landscape is loaded 
into the B register. This has to be done via the 
accumulator as the B register cannot be 
addressed indirectly from a memory location, 
only from a register. There is no Id b,(57328) 
instruction. 

HL is then loaded with 31, the screen 
position of the top right-hand corner of the 
screen. And the accumulator is loaded with 
45, the number that will give cyan on cyan. 
The Ig routine is then called. This prints a 
block of spaces from the HL position down- 
wards, in the colour specified by A, B spaces 
long. 

When it returns, Id be, 57264 loads BC with 
the position of the image data for sloping 
ground. The slope/flat flag in 57329 is then 
loaded into the accumulator and compared to 
the number one. 

If the contents of the flag are not 1 — that is 
they are and the slope profile is flat — the jr 
nzjmp jumps straight to the mp routine. If the 
flag is set to 1 and so the slope is going down, 
id bc,(57329) reloads BC with the address of 
the image data for sloping ground. You 
should be able to pick these two pieces of 
image data out of the graphics data supplied 
in the last part of Cliffhanger. 

Whether the landscape is sloping or flat, 
the processor now enters the mp routine. 



THE MP ROUTINE 



To print the character squares which mark the 
border between the sky and the land needs 
two colours. So Id a,44 sets the ink colour to 
green. The background colour remains cyan. 
Then the print routine given in part one of 
Cliffhanger is called again which prints the 
top of the landscape. 

The Y coordinate of the horizon is then 
loaded into the B register and it is subtracted 
from 23 to give the number of character 
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squares left below the horizon line. The result 
appears in A and is then transferred back into 
B where it is required when the Ig routine is 
called. Note that the full 24-line screen 
including the two edit lines usually reserved 
by the system is being used. 

The Id a,32 sets the colour to green on 
green. Then 32 is loaded into DE and added 
to the print position in HL. This moves the 
print position one character square down the 
screen. The Ig routine is then called to print 
the block under the horizon in green. 

The pop be pulls the column counter back 
off the stack. Then djnz decrements it and 
jumps back to the beginning of the whole 
procedure again to cope with the next 
column. 



SCORING 



On the screen you also need an area set aside 
to print the score in. So HL is loaded with 49, 
to set the print position. The string length, 
12, is loaded into B. And A is set to 41, to give 
blue on cyan. 

IX is then loaded with 57973, which is the 
position of the memory byte being used to 
store the score. And the me routine given in 
part one of Cliffhanger is called again. This 
translates the score into ASCII characters and 
prints them on the screen. 

After that the elb routine is called. This is 
the extra level bits routine which adds the 
snakes and the pits when you move onto a 
higher level. The routine hasn't been written 
yet and you will see that the elb label marks a 
single ret at the end of this routine, So for now 
the processor will return straight away. This 
ret will be overwritten later though when the 
proper elb routine is given. 

When the processor returns from the elb 
routine it hits another ret. At the moment this 
returns the processor to BASIC. But when 
the whole program is finished it will return to 
the main driver program which will call the 
next routine in the game. 



JUST SCROLLING 



The label scl marks the beginning of the scroll 
routine. This scrolls the instruction page off 
and the slope on sideways. 

HL is loaded with 16,384, the start of the 
display file. B is loaded with the number of 
rows in the display file and attribute file. And 
C is loaded with 31, the number of columns 
per row, 

The display file pointer in HL is then 
incremented. So the Id a,(hl) loads the cont- 
ents of the second screen location into the 
accumulator. HL is then decremented so it 
points to the first screen location and the 
contents of the A are loaded back there. 



The HL pointer is then incremented again 
and the column pointer in C is decremented. 
And if this hasn't been decremented to zero at 
the end of the screen, jr nz,lpj loops back to 
deal with the next column. But if the end of 
the screen has been reached the pointer in HL 
is incremented again. 

The djnz instruction always acts on the BC 
register pair. And as C is always zero at this 
point, it effectively decrements B and loops 
back to the beginning of the routine to scroll 
the next row. When it has scrolled the last 
row, B has counted down to zero and the ret 
returns the processor to the place where the 
scroll routine was called. 



THE LG ROUTINE 



The push be stores the counter in BC on the 
stack. BC is then loaded up with 15,616. This 
is the address of the beginning of the 
Spectrum's character set — and it stans with a 
space. So when the print routine is called 
again, it prints a space of the appropriate 
colour on the screen. 32 is loaded into DE and 
added to HL to move the print position down 
one 1 character square. 

The pop be gets the counter back again and 
djnz Ig decrements it and jumps back to print 
the next character square down the screen, 
unless the last character square has been dealt 
with. In that case the processor moves onto 
the ret and returns to the place the Ig routine 
was called from. 



Unfortunately, it is very difficult to scroll on 
the scenery on the Commodore. It is easy to 
make it scroll between scenes once the first 
one has been put up — as all the scenes are 
basically the same it is just a matter of taking 
what comes off one end of the screen and 
putting it back on at the other. But putting a 
fresh bit of scenery on the screen is a different 
matter. So it is going to be dropped like a flat 
as soon as the instruction page has 
disappeared. 

But first you need to paint the flat. The 
following BASIC program carries the cliff 
data. It puts it up on the screen so that you can 
see the outline of the scene. It won't make 
much sense at the moment because it is put up 
as ASCII strings. But you will be able to see 
what goes where. 

The BASIC program then stores the 
screen in another area of memory where the 
machine code can pick it up. When it does, it 
will convert it into ROM graphics so what is 
shown on the screen then actually looks like a 
cliffl 
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££n]f:£C£n]£n]£"n]£££n]£n 
20 PRiNT"n]£n]££fEn]f" 

30 FORX = 0TO39:F = 0:FORY = 0TO24 

40 SC = 1024:CL = 55296 

50P=INT(RND(1)*3) + 1:IFP = 1THENV = 30 

60IFP = 2THENV = 31 

70IFP = 3THENV = 63 

80 C = X+Y'40:IFF = 1THENPOKESC + C,V: 

POKECL+C,0 
90 I FPEEK(SC + C) = 280RPEEK(SC + C) = 29 

THENF = 1 
100NEXrr',X 

110 PRiNr'sauvESHiiiiiiiiii 

LEVELS II II II 11 IISCORED00000 
0g"TAB(27)"Hll 111111 = " 
120 FORI = 0TO999:P = PEEK(SC + t):POKE 

13312 + 1,P:NEXT 
130PRINT"gFINISHED":STOP 

You can SAVE the data by using your machine 
code monitor. The data table runs from 
13,312 for 999 bytes. 



PAINTING THE SCENERY 



The following routine picks up the scenery 
data and puts it on the screen as part of the 
game: 



ORG 25344 

LDA #$00 

STA $FB 

LDA #$04 

STA $FC 

LDA #$34 

STA $FE 

LDA #i 

STA $FD 

LDY #; 

LDA ($FD),Y 

STA ($FB),Y 

JSR $5150 



INC $FB 

BNE $631 F 

INC $FC 

INC $FD 

BNE $6325 

INC $FE 

LDA $FB 

CMP #$E8 

BNE $6312 

LDA $FC 

CMP #$07 

BNE $6312 
RTS 



You can assemble and SAVE this program now, 
but do not call it. It calls the subroutine given 
below and without that in memory it will 
crash. 



PAINTING BY NUMBERS 



The first four instructions set the screen 
pointer. And the second four establish ano- 
ther zero-page pointer for the data. 

Then the Y offset is set to zero because 
you're going to increment the zero-page. And 
the byte pointed by the data pointer is loaded 
into the accumulator and stored in the screen 
position pointed. The routine at $5150 is then 
called. This is given below. What it does is set 
the colours. 

The next six instructions increment the 
pointers. The BNE instructions in that part of 
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the routine check whether the low byte of the 
pointer has reached the end of page and jumps 
the subsequent INCs — which increment the 
high byte — if the end of the page has not been 
reached. 

The six instructions after that check to see 
if the end of the screen has been reached. And 
exits the program if it has been. The RTS here 
will be overwritten when the rest of the 
program is added. 



ADDING COLOUR 



The following routine fills in the colour: 



ORG 20816 

LDY #$00 

LDA ($FB),Y 

STA $0384 

LDA $FC 
CLC 

ADC #$D4 

STA $FC 

LDA $0384 

CMP #$1C 

BEQ $5181 

CMP #$10 

BEQ $5181 

CMP #S3F 

BEQ $5186 



CMP #$1E 

BEQ $5186 

CMP #$1F 

BEQ $5186 

LDA #$02 

STA ($FB),Y 

LDA $FC 

SEC 

SBC #$D4 

STA $FC 

RTS 

LDA #$05 

JMP S5177 

LDA #$01 

JMP $5177 



The subroutine starts off by loading up the 
same byte of data that the main program has 
been dealing with and stores it in $0384. This 
is a temporary store because the accumulator 
has to be used for something else just for the 
moment. 

The next four instructions add $D4 to the 
high byte of the screen pointer in $FC. This 
shifts the pointer from its position in the 
graphics screen — which starts at $0400 — to 
the corresponding position on the colour 
screen— which starts at $D800. 

Then the data byte is loaded back from 
$0384 into the accumulator. Then it checks 
for various control codes in the data. Depend- 
ing on the control code found, the processor 
branches to the instruction at S5I81 or the 
one at $5186. 

The instruction at $5181 is LDA #$05 
which loads the accumulator with the ink 
colour green. And LDA #$01 at $5186 loads 
up ink colour white. This gives the green of 
the grass and the white is the white of the cliff 
itself. The two tones of the grass and the cliff 
are given by graphics characters which mix 
the ink colour with the paper. 

If none of the control characters are picked 
up, the accumulator is loaded with red. So 
everything that is on the screen, which is not 
green or white is coloured red. 

No, this doesn't mean the sky is red. Willie 



is not a shepherd. Red is the ink colour so it 
only appears when data is written on the 
screen. So the number of lives, level and score 
are written in red, but the sky is in the paper 
colour, grey. Unfortunately, it was rather 
overclouded on the day Willie decided to 
have his picnic — in the Commodore version 
at least. 

If the character is printed in white or green, 
the processor jumps back to the instruction at 
$5177, which is the one after the red colour is 
set for the rest of the data. This stores the 
chosen colour on the colour screen in the 
appropriate place. 

The next four instructions subtract $D4 
from the high byte pointer in $FC, to move it 
back from the colour screen to the graphics 
screen. So when the RTS returns to the main 
routine the next graphics character can be 
picked up and put on the screen. 



Rather a lot of BBC programming has to be 
given at this point. You need a couple of 
routines to deal with user-defined graphics 
and a third to define the colours. Don't forget 
to key in PAGE = &3000 and NEW before you 
key in this program. 

30FORPASS = 0TO3ST£P3 

40P% = &17D4 

50 [OPTPASS 

60 .Chardef 

70 LDA #23 

80JSR&FFEE 

90TXA 

100JSR&FFEE 

110LDA#0 



120STA8i71 
130TYA 
140ASLA 
150ROL&71 
160 AS LA 
170 R0L&71 
180ASLA 
190ROL8.71 
200 CLC 
210ADC#&34 
220 STA&70 
230 LDA&71 
240 ADC #8.1 5 
250 STA&71 
260 LDY #0 
270 .Lbl 

280 LDA(8i70) ,Y 
290 JSR&FFEE 
300 INY 
310CPY#8 
320 BNELbl 
330 RTS 
340 .Pt 



350 

360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 



STA&72 

TXA 

PHA 

TYA 

PHA 

LDA&72 

AND#&80 

BNELb2 

LDA&72 

JSR&FFEE 

JMPLb4 

.Lb2 

LDA&72 

AND#&7F 

TAY 

LDX#&FF 

JSRChardef 

LDA#&FF 

JSR&FFEE 

.Lb4 

PLA 

TAY 

PLA 

TAX 

LDA8i72 

RTS 

.Def 

LDX#0 

STX&72 





640 .Lb3 

650 LDA&72 

660 CLC 

670 ADC #224 

680 TAX 

690 LDY&72 

700 JSRChardef 

7101NC&72 

720 LDX&72 

730CPX#23 

740 BNELb3 

750 RTS 

760] NEXT 

770 DATA6,1, 5,0,3, 

7,4,6,2,1,5,0,3,7,6,6 
780FORA% = &1845 

T0&1854:READ?A%: 

NEXT 
790 FORPASS 

= 0TO3STEP3 



800P% = gi1855 
810 [OPTPASS 
820 .Colour 
830LDX#0 
840 .Lb5 
850 LDA #19 
860 JSR&FFEE 
870 TXA 
880 JSR&FFEE 
890 LDA8i1845,X 
900 JSR&FFEE 
910LDA#0 
920 JSR&FFEE 
930 JSR&FFEE 
940 JSR&FFEE 
950 I NX 
960CPX#16 
970 BNELb5 
980 RTS 
990 IN EXT 



When you have keyed in this program SAVE it, 
then RUN it. To test it, the rest of the program 
must be in memory then key in the following 
instructions: 

PAGE = &2000 
NEW 

MODE 2 

CALL &182D 

FOR A% = 224 TO 255:VDU A%:NEXT 

This tests the first routine. To test the second 
key in: 

FOR A% = 128TO 211:CALL &1803:NEXT 

And to test the third routine: 

CALL &1 855 



USER DEFINED GRAPHICS 



The first routine redefines some of the char- 
acter set as user-defined graphics. As always 
when you are dealing with the screen, the 
routine at &FFEE is called and directed by 
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the parameter in A. A value of 23 in A tells the 
routine that you want to redefine a character. 

The parameter in X when you enter this 
program is the ASCII code of the character in 
the machine's character set which you want to 
redefine. And the parameter in Y is the 
number of the user-defined graphic you want 
it redefined as. 

So the contents of X are transferred into A 
and the &FFEE routine is called again. This 
tells the machine which character you want to 
redefine. 

The new data for the user-defined graphic 
is stored in a data table. Characters take up an 
eight by eight square. So the data for each 
character takes up eight bytes — which are 
each eight bits long. So to count along the 
data table, you have to multiply the new 
character number by eight. The result is 
going to be stored in &70 and &71. 

The number in the Y register must be less 
than 255 — that's the capacity of an eight-bit 
register. So the high byte of the answer is set 
to zero before you start. 

The contents of the Y register is than 
transferred into the accumulator where it can 
be manipulated. The contents of the ac- 
cumulator is then shifted to the left and the 
contents of &71, the high byte of the answer 
store, are than rotated to the left. 



SHIFTS AND ROTATES 



When performing a multiplication on a num- 
ber which might yield a two byte result, the 
different properties of a shift and a rotate 
become very useful. 

A shift left moves all the bits one place to 
the left, effectively mukiplying the contents 
by two. Bit zero is filled with and the 
overflow from bit seven goes into the carry 
flag. 

A rotate left also shifts all the bits one place 
to the left. But it loads bit zero with the 
contents of the carry flag and rests the carry 
flag with the overflow from bit seven. In other 
words, it shuffles — or rotates — all the bits 
round, rather than just shifting them along. 

Using the two of them in conjunction, as 
here, effectively gives a 16-bit shift. If there is 
any overflow from the ASL instruction it is 
automatiacally picked up by the ROL through 
the carry flag. 

Here the ASL and ROL combination is used 
three times, multiplying the Y parameter by 
eight. Then &34 is added to the low byte and 
&15 is added to the high byte. The data table 
starts at &1534. 



ENTER THE DATA 



The Y register is then loaded with zero, then 
the accumulator is loaded indirectlv from the 



location in the data table pointed to by &70 
and &71, offset by Y. The &FFEE routine is 
called yet again and the first byte of UDG 
data is entered. 

Y is then incremented, compared to 8 and 
the BNE Lb 1 branches back to enter the next 
byte of the data table if Y hasn't clocked up to 
eight yet. 

When it has clocked up that far, the 
processor hits the RTS and exits the routine. 

You will notice that this routine redefines a 
character and is followed by nine parameters. 



The first is the number of the character to be 
redefined and the next eight are the data for 
the new character. This is exactly what is fed 
into &FFEE subroutine and you'll find the 23 
in line 70. 



WHICH CHARACTER: 



The next little routine decides whether a 
ASCII character or a UDG is to be printed. 
The character codes up to 1 27 — the alphabet, 
the numbers and the punctuation marks — are 
going to be printed as normal but the codes 
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from 128 to 255 are going to be UDGs. 

The first thing that has to be done is to 
store the contents of A, X and Y. They may be 
required later. A is stored in &72, then X is 
transfered into A and and pushed onto the 
stack and the Y register is transferred into A 
and pushed onto the stack. 

Then the contents of &72 is loaded back 
into the accumulator and ANDed with &80. 
This checks to see if the most significant bit is 
set — in other words, if the number in the 
accumulator is greater than or equal to 128. 



The AND instruction sets the zero flag if the 
result of the AND is zero. So if the number in 
A is 127 or less, the BNE instruction does not 
branch and the processor continues. The 
accumulator is again loaded with the contents 
of &72 and that corresponding ASCII charac- 
ter is output to the screen. Then the processor 
jumps on to the routine that restores the 
contents of A, X and Y. 

But if the number in the accumulator is 1 28 
or more, the BNE instruction branches the 
processor onto the label Lb2, where the 




accumulator is loaded up with the contents of 
&72 yet again and ANDed with &7F. This 
resets the most significant bit to and leaves 
the rest of the bits alone, effectively subtract- 
ing 1 28 from the ASCII to give the number of 
the UDG required. This number is then 
transfered into the Y register. 

X is then loaded with 255 and the Chardef 
routine above is called. This redefines charac- 
ter 255 as the one you specify in Y. Then 255 
is loaded into the accumulator and the 
&FFEE routine is called. This prints the 
redefined character 255 on the screen. 

The rest of the routine, from Line 550 to 
5905 restores the contents of A, by reloading it 
from &72 yet again, and X and Y by pulling 
them off the stack. 



STOCK CHARACTERS 



Some UDG characters are going to be used 
frequently during the program and you don't 
want to have to define them every time they 
are used. It would be much more convenient 
if you could just go straight to central casting 
and pull them out. 

The routine carried in Lines 620 to 750 
redefines characters 224 to 246 as UDGs to 

22, This leaves these characters permanently 
changed for the duration of the game and they 
can be printed up immediately at any time by 
loading the accimiulator with one of the 
appropriate numbers and calling the routine 
at &FFEE without having to go through the 
whole rigmarole of redefining a character each 
time. 

The routine is initialized by loading X with 
zero and storing that in the zero page location 
&72. Once past the label Lb3 which marks the 
beginning of a loop, the contents of &72 are 
loaded back into the accumulator. Then 224 is 
added to take it to the start of the characters to 
be redefined. 

The result of the additon is transferred into 
the X register. Y is loaded with the contents of 
&72 and the Chardef routine is called. This 
redefines the character given by 224 plus the 
number of the loop you're onto as the charac- 
ter pointed to by the number of the loop. 

The contents of &72 are then incremented 
to move onto the next character. X is loaded 
with the result so that it can be compared to 

23. The processor branches back and rede- 
fines the next character until it has gone 
round the loop 23. Then it drops out and 
returns. 



COLOURING 



Next the colour has to be defined. The 
LDA # 19 and JSR&FFEE in Lines 850 and 860 
acts like a VDU19, which changes the original 
colour. 



mill""' 



34 



fiifimimr^ 



34 ^HHimiiiiPPiini! 



The value in X is then transferred into the 
accumulator. This is the number of the loop 
you're on and, when &FFEE is called, is the 
number of the colour that is to be defined. 

The new colour number is supplied by the 
data in Line 770 and is picked up by the 
LDAgi1845,X in Line 890. Then &FFEE is 
called. The VDU 19 instruction always ends 
with three zeros which are left open for future 
expansion. This is done by loading A with 
and calling &FFEE three times. 

X is incremented to move onto the next 
colour and the next byte in the data table and 
compared to 16 to see whether all 16 colours 
have been defined. When they have the 
processor leaves the loop and exits. 



DISPLAY AND PLAY 



This program prints up the first screen. 

80 DATA 17,8,31,19,6 

90 FORA% = SlI 877TO&1 87B: READ?A%;NEXT 

140 DATA44,61, 24,61 ,21, 61 ,24,43,25,61, 21, 

47,13,51,12,51,14,54 
1 50 FORA% = &1 87CTO&1 88D:READA$: 

?A%=EVAL(''i"+A$):NEXT 
200DATA239,239,0,239,241,240 
210 FORA% = &188ETO&1893;READ?A%: 

NEXT 
250FORPASS = 0TO3STEP3 
260 P% = 8.1 894 
270 [OPTPASS 
280 .Screen 

290LDX#0 580 PHA 

300 -Lbl 590 IDA #8(86 

310LDA&1877,X 600JSR&FFF4 

320JSR8lFFEE 610STY8i72 

330 INX 620LDA#9 

340CPX#5 630JSR8iFFEE 

350 BNELbl 640 .Lb7 

360LDX#0 650 IDA #8 

370 STX8.70 660 JSR&FFEE 

380 .Lb2 670LDA#10 

390LDA8.187C,X 680JSR&FFEE 

400LSRA 690LDA#224 

410LSRA 700JSR&FFEE 

420LSRA 710 I NY 

430LSRA 720 CRY #30 

450 PHA 730 BNELb7 

460 TAY 740 IDA #31 

470 LDA8.188D,Y 750JSR8.FFEE 

480 STA8.71 760 TXA 

490LDA8.187C,X 770 JSft&FFEE 

500AND#8iF 780LDA8i72 

510 TAX 790JSR8iFFEE 

520 .Lb3 800 PLA 

530LDA8i71 810 TAX 

540 JSRSiFFEE 820 PLA 

550LDA#8 830 PHA 

560JSR8(FFEE 840 AND #1 

570 TXA 850 BEQLb4 



860LDA#9 
870 JSR&FFEE 
880 .Lb4 
890 PLA 
900 PHA 
910AND#2 
920 BEQLbS 
930LDA#8 
940 JSRSiFFEE 
950 .Lb5 
960 PLA 
970 PHA 
980 AND #4 
990 BEQLb6 



1000LDA#10 
1010JSR8(FFEE 
1020 .Lb6 
1030 DEX 
1040 BNE Lb3 
1050 PLA 
1060 INC8i70 
1070 LDX8.70 
1080CPX#18 
1090 BNELb2 
1100 LDA# 241 
1110JSR&FFEE 
1120 RTS 
1130]:NEXT 



After you have SAVEd and RUN this program 
key in: 

PAGE = & 2000 
NEW 
MODE 2 
CALL 6292 

The result of CALLING this program will look 
strange unless you have the graphics data in 
memory at the same time. The colours are 
going to look funny anyway — the program 
that redefines them is going to be CALLED 
later. 



WHATS THE DATA? 



Lines 80 and 90 READ in the DATA which 
sheets colour 8 and moves the cursor to its 
start position at 19,6. The DATA in Line 140 
supplies details of the slope encoded bit by 
bit. Bit seven is not used. Bits six to four 
specify which way the slope is going next. Bit 
six set to 1 means it stays level. Bit five set to 1 
means that it is going left and bit four set 1 
means that it is going right. On the Acorn 
computer's screen the slope is doubled back 
on itself to give Willie enough height to scale. 

The last three bits stand for the number of 
character squares in the direction specified. 

The DATA in Line 200 is the character data. 
These numbers define the shape of the top of 
the slope on the screen. 



SLOPING OFF 



The routine in Lines 290 to 350 set the colour 
and position the cursor. The LDA8i1877,X 
picks up the DATA given in Line 80 which is 
then output through the screen routine by the 
JSRSiFFEE. When the first data byte 17 is 
output it gives a VDU 17, so the colour is 
defined as the following byte which is 8. And 
colour 8 has been redefined in the routine 
above to COLOUR 2 which is green. The 
background colour stays as it was. 

The 31 in the DATA gives a VDU 31, which 
positions the cursor at the point specified by 
the two bytes that follow. 



The main routine starts with Line 360. 
Line 390 reads in the display data. To isolate 
the direction data in bits six to four, four 
logical shifts right are down. This shifts bit 
four into bit zero, bit five into bit one, bit six 
into bit two and shoves bits zero to three out 
of the register. Line 450 saves the direction 
data by pushing it onto the stack. 

Line 460 transfers the same direction data 
into the Y register so that it can be used for 
indexing. And Line 470 loads up the byte of 
character data. This is stored in &71. 

The display data is loaded up again in Line 
490 and it's ANDed with F to isolate bits zero 
to three. The result is then transferred into X 
so that it can be used as an index. 

The character byte just stored in &71 is 
output to the screen by Lines 530 and 540. 
Lines 550 and 560 then load up 8 and output 
that to the screen. This moves the cursor back 
to the position it has just printed in. 

The index is transferred into A and stored 
on the stack. Then A is loaded with &86 and 
the routine at &FFF4 is called. This reads the 
position of the cursor and returns the X and Y 
values in the appropriate registers. The Y 
values is stored in &72. 

The cursor is then moved forward again by 
loading 9 into A and calling &FFEE. This 
may seem a little unnecessary as the Y 
coordinate is the same in the next position 
along the screen. But the print position may 
have been at the end of the screen and cursor 
would have moved down a line. 

Then, lo and behold, in Lines 650 and 660 
the cursor is moved back again! But this is 
inside the loop that prints the green spaces 
under the slope, so in this loop the cursor has 
to be shifted back to the same position — and 
then moved down one line — at the beginning. 

The move down one line is done by loading 
A with 10 and calling &FFEE. Then charac- 
ter 224 is printed on the screen. This has been 
redefined as a solid block. Y is then incremen- 
ted and the loop is executed again until it 
reaches 30 which means the cursor has 
reached the bottom of the screen. 

Lines 750 to 790 return the cursor to its 
original position. The X index is then pulled 
off the stack again and transferred back into 
the X register. The direction data byte used to 
draw the top of the slope is then pulled off the 
stack and pushed back on again. This copies it 
back into A and leaves it on the stack. 



WHICH WAY NOW? 



A series of ANDs look at the state of the 
direction data and decide which way the slope 
is going next. AND#1 looks at bit zero and 
BEQ branches if it is not set. 

If it is set, the slope is continuing right and 
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the branch is not made. A is closed with 9 and 
the screen routine is called. This moves the 
cursor to the right. 

Lines 890 and 900 copy the direction data 
back into A and it is ANDed with 2 to check 
whether bit one is set. If it's not, the processor 
branches forward. If it is, the slope is going to 
the left. So A is loaded with 8 and the screen 
routine is called. This moves the cursor to the 
left. 

Lines 960 and 970 copy the direction data 
back into A again, then AND # 4 checks to see 
if bit three is set. If it's set, A is loaded with 10 
and the screen routine is called again. This 
moves the cursor down. 

The counter in X, which is the number of 
spaces that the slope continues in any parti- 
cular direction is decremented, and the pro- 
cessor loops back if it hasn't counted down to 
zero. 

If it has, that particular section of the slope 



is finished and the processor moves on. The 
main loop counter in &70 is then incremen- 
ted. This was intialized to zero at the start of 
the main loop in Lines 360 and 370. Its 
contents are now loaded up into the X register 
and compared to 18 — there are 18 distinct 
sections in the slope. If the counter has not 
counted up that far, the processor branches 
back and starts on the next section of the 
slope. If it has, the processor continues. 

A is loaded with 241 and the screen routine 
prints character 241 on the screen. This is the 
last character of the slope and is one of the 
UDGs you redefined earlier. 

The following program scrolls on the 
dragon's scenery. This is a bit different from 
that on the other machines because of the 
limitations of the Dragon and Tandy's colour 
set. With green grass on the slope and a blue 



sea, you have little alternative but to have a 
yellow sky! But then it is a very hot day. 





ORG 


19109 




JSR 


MODE 




JSR 


GCLS 




LDX 


#5631 




LDY 


#17503 




LDB 


#32 


LOOP 


PSHS 


B 




JSR 


SCROLL 




JSR 


PRINT 




PULS 


6 




DECB 






BNE 


LOOP 




LDY 


#17604 




LDX 


#1569 




JSR 


PRSUN 




RTS 




MODE 


ECU 


19182 


GCLS 


EQU 


19161 
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SCROLL EQU 

PRINT EQU 
PRSUN EQU 



19197 
1921B 
19267 



Key this in, assemble it and SAVE it. But 
don't EXECute it at the moment. It won't work 
until the subroutines given below are in 
memory as well. 



MOVING THE MOUNTAIN 



The first thing that has to be done is to put the 
computer into graphics mode and select the 
appropriate colour set. This is done by the 
subroutine MODE — which is called by JSR 
MODE. The screen is then cleared by jump- 
ing to the GCLS routine which sets it all to 
yellow. 

LDX #5631 loads the X register with the 
left-hand end of the horizon which is at the 
right-hand end of the screen before it is 
scrolled on. LDY # 1 7503 loads the Y register 
with the address of the start of the slope 
profile data. And LDB #32 loads B with 32, 
the number of columns on the screen. The 
column counter is then pushed onto the stack 
for safekeeping. 

Then the SCROLL routine is called, which 
scrolls on the first column of the scenery. 
After that the PRINT routine is called. This 
prints the column of green below the horizon. 

The column counter is then pulled off the 
stack again and decremented. Then the 
processor loops back to deal with the next 
column unless, of course, the last column has 
been completed. 

If it has the processor continues and loads 
Y with the start of the data for the sun. It 
loads X with the position of the sun, and then 
jumps to the PRSUN subroutine. 



CURIOUS YELLOW 



The GCLS routine clears the screen by 
turning it all yellow — the sky colour in this 
version of the game. 



GCLS 



GCLSI 



The X register is loaded with the address of 
the beginning of the screen. A is loaded with 
85, which is the code for the colour yellow. 

STA ,X + stores the yellow in the position 
pointed to by X and increments X. X is then 
compared to 7,680 the first location past the 
end of the screen and the BLO GCLS branches 
back to fill the next character square with 
yellow if the end of the screen has not yet been 



ORG 


19161 


LDX 


#1536 


LDA 


#85 


STA 


,x + 


CMPX 


#7680 


BLO 


GCLSI 


RTS 





reached. When it has the routine returns to 
where it was called from. 



ALA MODE 



The following four subroutines can be en- 
tered together as they follow on from the 
previous one. 

To change graphics mode you have to 
address the Video Display Generator chip 
and the Synchronous Address Multiplexor 
chip. These have to be set up for the new- 
graphics configuration you require. 

A is loaded with the number 229 which is 
stored in memory location FF22. This mem- 
ory location controls the control lines for the 
VDG and other output functions. Each bit of 
this byte controls a separate function. 

Here the number 229—11100101 in 
binary — sets the control lines. The I in bit 
seven sets the VDG to graphics mode, as 
against alphanumeric. Bits six and five are set 
to give graphics mode P3. Bit three switches 
between colour sets — here gives colour set 
one which comprises green, yellow, blue and 
red. 

Bits two, one and zero control have nothing 
to do with the VDG chip. They control the 
RAM size, single-bit sound and the printer 
respectively and are usually set to 101. So 
when you change the setting of the control 
lines, make sure you put 101 back in these 
bits — unless, of course, you have some good 
reason for changing them. 

When you change the settings of the 
control lines of the VDG chips you have to 
change the control register of the SAM chip 
as well. The SAM chip has a 16-bit register 
whose bits correspond to memory locations 
FFC0 to FFDF. You'll notice that there are 



32 memory locations in that range. Each bit of 
the control register is set by writing to the 
odd-numbered byte associated with it, and 
cleared by writing to the even-numbered 
byte. And when you write to these bytes you 
should put into them the same values you put 
into the VDG control location. The bits that 
are set here tell the SAM chip that the screen 
starts at 1,536. 



ORG 


19182 


MODE LDA 


#229 


STA 


65314 


STA 


65475 


STA 


65477 


STA 


65479 


RTS 




SCROLL ON 




The SCROLL 


routine moves the scenery on 


from the right. 




SCROLL PSHSX,Y 


LDX 


#1536 


LDY 


#1537 


SCRO LDA 


,Y + 


STA 


,x + 


CMPX 


#7679 


BLO 


SCRO 


PULS 


Y,X 


BTS 






The SCROLL routine wants to use the X 
and Y registers, but important values 
have been stored in them on the main 
program. So the first thing that has to 
be done is push these onto the stack. 
The X and Y registers are then 
loaded with the addresses of the first 
and second memory locations of the 



Ill 



screen. The contents of the second screen 
location is then toaded into first. Both address 
pointers are updated. Then the value of X is 
compared with the address of the one before 
the last screen location and the processor 
branches back to shift the contents of the 
third screen location into the second, and so 
on, if the last location has not been shifted. 

You will notice that this not only scrolls 
everything on the screen one location to the 
left, it also brings the contents of the last 
screen location on the left round into the last 
screen location on the right, one line above. 
This does not matter as the last column is 
going to be overwritten with the new bit of 
scenery that is about to appear. 

And when the contents of the last memory 
location on the screen has been moved into 
the location before last, the contents of the X 
and Y registers which were stored on the stack 
at the beginning of the routine are pulled off 
again. Then the processor returns to the point 
where the SCROLL routine was called. 



PRINTING THE NEW SCENERY 



The extreme right-hand column of the screen 
has to be dealt with separately. The new 
scenery is printed in there by this routine: 



PRINT 



PRI 



PSHS 


X 


LDA 


.Y + 


SUBA 


#33 


BNE 


PRZ 


PULS 


X 


LEAX 


-256,X 


PSHS 


X 


PSHS 


Y 


LDY 


#17536 


LDB 


#8 


LDA 


,v-i- 




PRZ 



STA 


,x 


LEAX 


32,X 


DECB 




BNE 


PRI 


PULS 


Y 


CLR 


,x 


LEAX 


32,X 


CMPX 


#7680 


BLO 


PRZ 


PULS 


X 


RTS 





This time the data pointer held in the Y 
register is going to be needed. And the 
horizon height held in the X register might 
have to be adjusted too— if the routine is not 
on a flat bit of the cliff. But for now X has to 
be stored on the stack. 

The byte of data pointed to by the pointer 
in Y is loaded into A and the pointer is 
incremented. Then 33 is subtracted from it. A 
33 in the data — which is the ASCII for ! — 
means that the slope continues flat. In the 
programming it means that the BNE instruc- 
tion following makes the processor branch to 
PRZ label. If not and the slope is set to rise, the 
processor continues. 

The horizon height is then pulled off the 
stack and 256 is taken away from it. 256 is 
32 X 8, so the X pointer is moved up the 
screen eight pixel lines or one character 
square. This is stored back on the stack as it 
will be needed when the next column has to be 
dealt with. The data pointer is pushed onto 
the stack to preserve it too. 

The Y register is then loaded with 17,536 
which is the start of the data for a sloping 
piece of horizon. B is toaded with eight — it is 
going to be used as a counter to count the 
eight bytes of data that are needed to make up 
the sloping section of horizon. 

LDA ,Y + loads A with the first byte of data 
and increments the pointer. This is stored in 
the pixel position pointed to by the address in 
X. In this mode the pixels are set two at a 
time, by two bits of data. With two bits, there 
are four possible values — one for each of the 
four colours in the colour set. How these are 
set is covered in the article on Better Graphics 
on pages 248 and 249. 

B is decremented and the processor bran- 
ches back to pick up the next byte of data and 
fill in the next line of pixels, unless B has been 
counted down to zero and the last line has 
been dealt with. 

When B reaches zero, the slope data 
pointer is pulled back off the stack and the 
processor goes into the PRI routine. This is 
the same routine it would have jumped to 
earlier, if the slope had continued flat. It fills 
in the solid blocks of green that form the land. 



GOING GREEN 



CLR ,X clears the contents of the address 
pointed to by X. X, you remember, points to 
the screen position you're dealing with and 
clearing it — setting the contents to — fills it 
with the colour green. LEAX 32,X adds 32 to 
the value of X and moves the pointer one 
position down the screen. 

CMPX #7680 checks to see whether the 
processor has reached the end of the screen. If 
it hasn't, it branches back to next pixel line 
with green. If it has, the horizon height is 
pulled off the stack again — whether it has 
been updated or not — and returns to the place 
it was called from. 



HERE COMES THE SUN 



The print and data positions for the sun has 
been given before the PRSUN routine is 
given and the following routine fills in a patch 
32 by 30 in the sky: 



PRSUN 


LDB 


#30 


PRSUNI 


PSHS 


B 




LDB 


#4 


PRSUNZ 


LDA 


,Y + 




STA 


,x+ 




DECB 






BNE 


PRSUNZ 




LEAX 


28,X 




PULS 


B 




DECB 






BNE 


PRSUNI 




RTS 





B is loaded with 30 to count down the lines of 
pixels to be filled. This counter is then 
pushed onto the stack and B is loaded again 
with 4. This gives a patch four bytes — or 
4x8, 32 bits — wide on the screen. If you 
want to fill in a graphic pattern 30 by 30 
pixels, you would have to put it on a patch 30 
by 32 pixels — you would have to use four 
bytes and leave two columns of pixels in the 
background colour. 

Again, LDA ,Y -I- picks up the appropriate 
piece of data and increments the pointer and 
STA ,X+ stores it in the appropriate screen 
position and increments that. B is decremen- 
ted, counting across the four horizontal 
screen locations. 

When the last of the row has been filled, 
LEAX 28,X adds 28 to X, moving the pointer 
onto the first location of the next row. The 
vertical counter is pulled back off the stack, 
decremented and — if the last row hasn't been 
dealt with— BNE PRSUNI branches back to 
deal with the next row. 

If the last row has been dealt with the RTS 
returns the processor to the place in the main 
program it was called from. 





CIRET 




Take a look at some more subtle 
ways of concealing missives that 
might fail into the wrong hands. But 
first, find out the code-breaking 
methods that might be employed 



As the article on pages 960 to 965 showed, 
there are many different approaches to the 
problem of coding sensitive information. 
Some of these are relatively easy to crack, but 
with the aid of computers, it has been possible 
to employ even more complicated methods. 



CODE BREAKING 



As the cryptographers struggle to invent 
better and more secure codes, so the code- 
breakers strive to frustrate them. A powerful 
tool when trying to decode the simpler trans- 
positions or substitution ciphers is the letter 
frequency count. In English, the letters E, T, 
A, O, N, I, S — in that order — occur most 
frequently. So, if in the encoded text the 
letters ETAONIS still appear most frequ- 
ently, the odds are that you will be dealing 
with a transposition code. Should other let- 
ters occur more frequently, then you must 
consider the possibility of a substitution 
cipher. 

In either event it will be necessary to count 
the letter frequencies in the message. This is 
both time-consuming and susceptible to 
error. The frequency distribution program 
given below comes in useful here. All you 
need to do is type in your text and when 
you've finished, the computer displays the 
complete letter frequency count. 

The picture below shows the letter distri- 
bution for 100 words from a newspaper 
article. You will see that the numbers are in 
good agreement with the ETOANIS prin- 
ciple. Now type in the program which shows 
how this works in practice: 




Frxusnon Distribution of l*<t>rs 



The table of letter frequency is useful 
for code-breaking 



15 POKE 23658,8 

20 BORDER 0: PAPER 0: INK 7: CLS 

30 PRINT TAB 8;"FREQUENCY COUNT"" 

40 PRINT TAB 12;"WARNING"" 

50 PRINT FLASH 1;AT 4,6;"DO NOT LEAVE 

SPACES";AT 5,9;"BETWEEN WORDS"" 
60 DIM n(28) 
70 PRINT "To end input of text and 

output n n n n □ □ D □ results - type 

80 FOR t=1 TO 28: LETn(t} = 0: 

NEXTt 
90 INPUT "Enter text ";a$ 
100 IF a$ = ""' THEN GOTO 180 
110 CLS 

120 FOR 1 = 1 TOLENaS 
130FORj = 1 TO 26 
140 IF j = CODE (a$(i TO i)) -64 THEN LET 

n(j) = n(j) + l 
150 NEXT j 
160 NEXT! 
170 GOTO 90 
180 CLS 
190 PRINT "LetternnnPreq' 

nnDLetterDDFreq'" 
200FORi = 1 TO 13 
210 PRINT TAB 2;CHR$ (64-hi};TAB 

10;n{i);TAB19;CHR$(77-Hi);TAB 

27;n{13 + i) 
220 NEXT i 
230 STOP 



N(J) = N(J)-H 
150 NEXT J 
160 NEXT I 
170 GOTO 90 
180 PRINT "□" 
190 PRINT "dLEnERUFREQUUL 

UUUFH 

200 FOR 1 = 1 TO 13 
210PRINTCHR$(64-l-l);TAB(6);N(l); 

TAB(13);CHR$(77-M};TAB(16); 

N(13 + l) 
220 NEXT I 



20 M0DE1:VDU 19,0,3,0,0,0,19,7,4,0,0,0 



\E\^ 



30 PRINT "□H> lldFREQUENCY 

COUNT" 
50 PRINT "H a DON'T LEAVE 

SPACES":PRINT "BETWEEN 

WORDS !" 
60DIMN(28) 
70 PRINT "HTO END INPUT/OUTPUT OF 

TEXT RESULTS-TYPE "" 
80FORT = 1 TO28:N(T)=0; 

NEXTT 
90 INPUT "a ENTER TEXTU";A$ 
100 IF A$ = "*" THEN 180 
110 PRINT "□" 
120 FOR 1 = 1 TOLEN(A$) 
130FOR J = 1 TO 26 
140 IF J = ASC(MID$(A$,I,1 )) -64 THEN 




■rwdfmcfMfW' 



CODE BREAKING 



LETTER DISTRIBUTION PROGRAM 

NEW CODING METHODS 

THE RAIL FENCE CODE 

MULTIPLICATION CODE PROGRAM 



USING MULTIPLICATION KEYS 

CODING DICTIONARIES 

SEHINGUPACODEBOOK 

PROGRAMMING YOUR OWN 

CODEBOOK SYSTEM 



30 PRlNnAB(13)"FREQUENCY COUNT'" 

40PRINnAB(16)"WARNING"" 

50 PRINnAB(2)"D0 NOT LEAVE SPACES 

BETWEEN WORDS"" 
60 DIM N(28) 
70 PRINP'TO END INPUT OF TEXT AND 

OUPUT RESULTS -TYPE*" 
80 FOR T = 1 TO 28:N(T) = 0:NEXT T 
90INPUT"ENTERTEXT";A$ 
100 IF A$ = ""' THEN GOTO 180 
110 CLS 

120 FOR 1 = 1 TOLEN(A$) 
130FORJ = 1 TO 26 
140 IF J = ASC(MID$(A$,I,1 )} -64 THEN 

N(J} = N(J) + 1 



150 NEXT J 

160 NEXT I 

170 GOTO 90 

180 CLS 

1 90PRINT'lEnER" TAB(8)"FREQUENCY" 

TAB(20)"LEnER" TAB(28) "FREQUENCY" 
200 FOR 1 = 1 TO 13 
210 PRINnAB(4) CHR$(64 + I);TAB(12)N(I); 

TAB(24};CH R$(77 + l)TAB(33)N{1 3 + 1) 
220 NEXT I 
230 END 



SSEl 



20 CLS 

30 PRINT@8,"FREQUENCY COUNT" 



40 PRINT@76,"WARNING" 

50 PRINT@134,"do not leave spaces": 

PRINT@169,"between words" 
60 DIM N(28) 
70 PRINT@224,"T0 END INPUT OF TEXT 

AND OUTPUTD 

RESULTS - TYPE "' 
80FORT=1 TO28:N{T)=0: 

NEXT 
901NPUT"ENTERTEXTn";A$ 
100 IF A$ = ""' THEN 180 
110 CLS 

120 FOR 1 = 1 TOLEN(A$) 
130FORJ = 1 TO 26 
140 IF J =ASC(MID$(A$,l,1))-64 THEN 




IS 







m 
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N(J) = N(J) + 1 
150 NEXT J 
160 NEXT I 
170 GOTO 90 
180 CLS 
190PRINT"LEnERnnnFREQ' 

nnDLEnERnnnFREQ"' 

200 FOR 1 = 1 TO 13 
210PRINnAB(2);CHR$(64 + l); 

TAB(10);N(I);TAB(19);CHR$ 

(77 + l);TAB(27);N(13 + l) 
220 NEXT 
230 END 

The operational structure of this program 
simply provides a counting mechanism. In 
the first phase of the program, 28 index 
variables are set equal to zero. These are used 
to store the frequency counts of the 26 letters. 
The final two variables are included in case 
you want to amend the program in order to 
produce percentages or other summary 
statistics. 



MULTIPLICATION CODES 



During the American Civil War the Rail 
Fence code was used to send secret messages. 



It works like this: suppose you wish to pass on 
the commercially sensitive warning: SELL 
CONSULS SOONEST. Then, take a sheet 
of lined paper and write the first letter on the 
top line, the second on the second line, third 
letter on the first line, and so on to get: 

SLCNUSONS 
ELOSLSOET 

— a pattern like the Western railroad fences. 
This message can then be encoded as 
SLCNUSONS ELOSLSOET or divided 
into more realistic word lengths as SLCNUS 
ONSELO SLSOET. 

NoWj the fence post code is really a special 
case of the more modern multiplication code. 
Ignoring spaces, the original plain text mes- 
sage contained IS characters. These can be 
stored in a2x 9, 9x2, 3x6 or 6x3 array as 
shown. 

Anyone trying to break the code without 
knowledge of the multiplication key would 
have a hard time. All that is really happening 
is that the message is written down the page 
until the first column of our array is filled, and 
then continued at the top of the second 
column. When the whole array is used up the 



encrypted text is read off across the page. 
Sometimes it is a good idea to add a few extra 
dummy letters to the end of a message — just 
to fool wouid-be code breakers. 

The multiplication program again uses the 
M1DS function to provide a coding or decod- 
ing facility in just a few short lines (Lines 
140-210). The multiplication code simply 
reads a message into an array in one direction 
and prints it out in the other; easy but 
effective. 



20 BORDER 0: PAPER 0: INK 7: CLS 

30 PRINT TAB (6);"MULTIPLICATI0N CODE" 

40 PRINT: PRINT: PRINT 

50 PRINT FLASH 1; PAPER 2;"D0N'T LEAVE 

SPACES BETWEEN WORDS" 
60 INPUT "ENTER TEXT"'m$ 
70 INPUT "ROWS ?nD";ni 
80 INPUT "COLUMNS ?nnn";n 
90 INPUT "CODE (c) OR DECODE 

(d) ?n";e$ 
100 PAUSE 50: CLS 
110IFe$ = "c"THENLETx = m 
120IFe$ = "d"THEN LETx = n 
130DIMd$(x,LENm$/x) 





Using the multiplication code with several keys, you can encrypt the same message in different ways 



U0FORi = 1 TOx 

1 55 LET a$ = "": LET m$ = m$ + " D " 
160FORJ = 1 T0LENm$-1 STEP x 
180 LETaS = 3$ + m$(i+j-1 

TOi+j-1} 
190 N EXT j 
195LETd,$(i} = a$ 
197 LETm$ = m${T0LENm$-1) 
200 PRINT d$(i);: IF e$ = "c" THEN PRINT 

"D"; 
210 NEXT i 
220 STOP 



KE[E 

30 PRINT "QH > liflMULTIPLICATION 

CODE" 
50 PRINT "SHHDONT LEAVE SPACES 

BETWEEN WORDS" 
60 INPUT "HTEXTU";M$ 
70 INPUT "ROWS|J";M 
80INPUT"COLUMNS(C)OR 
OECODE(D)";INPUT E$ 
100 PRINT "□" 
110IFE$ = "C"THENX=M 
120IFE$="D"THENX=M 
130DIMD$(X) 
140 FOR 1 = 1 TOX 
150D${I) = "" 

160FORJ = 1 TO LEN(M$) STEP X 
170B$ = MID$(M$,I + J-1,1) 
180D$(I) = D$(I) + BS 
190 NEXT J 
200 PRINT DS(I}; 
210 NEXT I 



20 M0DE1:VDU 19,0,4,0,0,0,19,7, 

3,0,0,0 
30 PRINT TAB(10)"MULTIPLICATION CODE'^ 
40 PRINT'" 
50 PRINTTAB(2)"D0 NOT LEAVE SPACES 

BETWEEN WORDS"" 
60INPUT"TEXT";M$ 
70 INPUT"ROWS";M 
80N = INT(LEN(M$)/M) + 1 
90 INPUT"CODE(C) OR DECODE(D)";E$ 



1 00 TIME = 0:REPEAT UNTIL TIME > 1 50 

110IFE$ = "C"THENX = M 

120IFE$ = "D"TH£NX-N 

130DIMD$(X) 

140 FOR 1 = 1 TOX 

150D$(I) = "" 

160 FOR J = 1 TOLEN(M$) STEP X 

170B$ = MID$(M$,I+J-1,1) 

180D$(I) = D$(I) + B$ 

190 NEXT J 

200 PRINTD$(I); 

210 NEXT I 

220 PRINT : INPUT" AGAIN"; 

AN$:IFAN$ = "Y"THEN RUN 
230 END 



^n 



20CLS 

30 PRINT@6,"MULTIPLICATI0N CODE" 

40 PRINT:PRINT:PRINT 

50 PRINT"DON'T LEAVE SPACES BETWEEN 

WORDS" 
60PRINT:INPUT"TEXTn";M$ 
70 INPUr'ROWSn";M 
80 INPUr'COLUMNSn";N 
90 INPUrXODE(C) OR DECODE(D)n";E$ 
100FORL = 1TO1000:NEXT 
110 IF E$ = "C"THENX = M 
120IFE$ = "O"THENX = N 
130DIMD$(X) 
140 FOR 1 = 1 TOX 
150D$(l) = "n" 
160 FOR J = 1 TO LEN(M$)STEPX 
170B$=MID$(M$,I + J-1,1) 
180D$(I) = D$(I) + B$ 
190 NEXT J 
200 PRINTD$(I) 
210 NEXT I 
220 END 



CODEBOOK 



So far we have only considered ciphers. 
Proper codes — that is whole words or phrases 
which are encrypted by other words or 
numbers — are traditionally favoured by large 
organisations that operate from fixed prem- 



ises. Embassies, ships and business houses fall 
into this category. Operating from fixed loc- 
ations is preferable because one or more bulky 
coding dictionaries are necessary for translat- 
ing the plain text. 

The codebook program sets up a small 
sample code dictionary of 20 words. Using a 
two-dimensional array A$(I,J), in which I = 1 
indicates plain text and I = 2 is coded text, the 
program first READS in the data displayed in 
the table. The next section (Lines 120-170 on 
the Commodores, Dragon and Spectrum. 
Lines 140-190 on the Acorn) takes in a word 
from the message and then prints out the 
corresponding entry in the table. If, for 
example, AS(1,6} = G0 TO is entered, then 
A$(2,6} = "10327" will be printed. 

The larger message: DEPART FROM 
PARIS AT MIDNIGHT ON SATURDAY 
ARRIVE AT ROME AT DAYBREAK ON 
SUNDAY is coded as: 68677 90075 12128 
26569697832792168719121 28 23874 12128 
70355 69783 48553. The encrypted text: 
74891 22317 12128 26569, translates to 
SEND MONEY AT MIDNIGHT. 

With the simple program given it would be 
just as quick to perform the coding or decod- 
ing operation by hand directly from the table. 
However, once the number of words gets into 
the hundreds or even thousands, the time 
saving produced by the computer is 
enormous. 



20 BORDER 0: PAPER 0: INK 7: CLS 

25 POKE 23658,8 

30 PRINT TAB (10);"CODEBOOK" 

40 PRINT : PRINT : PRINT 

50DIMa$(2,20,10) 

60 FOR 1 = 1 TO 2 

70FORj = 1 TO 20 

80 READ a$(i,j) 

90 NEXT j: NEXT i 

100 INPUT "DO YOU WISH TO CODE(0) 

nnnnnDDnnnnnnnn 

0RDEC0DE(1)";x 



^^"(imwm^ 



110 CLS 

120 INPUT "enter word ";m$ 

125 IF LEN m$> =10 THEN GOTO 130 

127FORn = 1TO10-LENm$:LET 

m$ = m$ + "n": NEXT n 
130 IF m$ = ""' THEN GOTO 280 
140FORt=1 TO 20 
150 IF m$ = a${1+x,t) THEN PRINT 

a$(2-x,t} 
160 N EXT t 
170 GOTO 120 
180 DATA "NEWYORK","LOND0N", 

"PARIS"/'ROME" 
190 DATA "ARRIVE","DEPARTFROM", 

"GO TO","ESCAPE TO","SATURDAY" 
200 DATA "SUNDAY","NCON", 

"DAYBREAK","MIDNIGHT" 
210 DATA "NIGHTFALL", "IN", "AT", 

"ON","SEND" 
220 DATA "MONEY","FOCD" 
230 DATA "54982","73581 ","90075", 

"23874" 
240 DATA "6871 9","68677","1 0327", 

"40476" 
250 DATA "27921 ","48553","11 072", 

"70355" 
260 DATA "26569","74832","10996", 

"12128" 
270 DATA "69783", "74891", "22317", 

"98724" 
280 STOP 



30 PRINT "QH > UaCODEBOOK" 

50 DIM A$(2,20) 

60 FOR 1=1 TO 2 

70 FOR J = 1 TO 20 

80 READ A$(I,J) 

90 NEXT J,l 

100 PRINT "MMDO YOU WISH TO 

CODE(0)ORDECODE(1)":INPUTX 
120 INPUT "MENTER WORDU";M$ 
130 IF M$ = "*" THEN 280 
140FORT=1 TO 20 
150 IF M$ = A$(1 +X,T) THEN PRINT 

A$(2-X,T) 
160 NEXT T 
170 GOTO 120 

180 DATA NEWYORK,LONDON,PARIS,ROME 
190 DATA ARRIVE,DEPART FROM,GO 

TO,ESCAPE TO,SATURDAY 
200 DATA SUNDAY,NOON,DAYBR£AK, 

MIDNIGHT 
210 DATA NIGHTFALL,IN,AT,ON,SEND 
220 DATA MONEY,FOOD 
230 DATA 54982,73581,90075,23874 
240 DATA 68719,68677,10327,40476 
250 DATA 27921,48553,11072,70355 
260 DATA 26569,74832,10996,12128 
270 DATA 69783,74891,22317,98724 
280 END 




In order to use the Codebook system, both the sender of the message and the 
recipient need to have a copy of a fixed dictionary 



a 



20 MODEIrVDU 19,0,3,0,0,0,19,7, 

4,0,0,0 
30 VDU 23,224,255,255,255,255, 

255,255,255,255 
40 PRINT'TAB(16)"C0DEB00K" 
50 PRINT'" 
60 DIM A$(2,20) 
70 FOR 1 = 1 TO 2 
80 FOR J = 1 TO 20 
90 READA$(I,J) 
100 NEXT: NEXT 
110 INPUr'DO YOU WISH TO CODE(0) OR 

DEC0DE(1)";X 
120 TIME = 0:REPEAT UNTIL TIME > 150 
130 CLS 

140 INPUT"WORD";M$ 
150 IF M$ = "*" THEN GOTO 300 
160 FOR T=1 TO 20 
170 IF M$ = A$(1 +X,T) THEN PRINT 

CHR$(224);A$(2-X,T) 
180 NEXT T 
190 GOTO 140 
200 DATA NEWYORK,LONDON,PARIS, 

ROME 
210 DATA ARRIVE,DEPART FROM,GO TO, 

ESCAPE TO,SATURDAY 
220 DATA SUNDAY,NOON,DAYBREAK, 

MIDNIGHT 
230 DATA NIGHTFALL,IN,AT,ON,SEND 
240 DATA MONEY,FOOD 
250 DATA 54982,73581,90075,23874 
260 DATA 68719,68677,10327,40476 
270 DATA 27921,48553,11072,70355 
280 DATA 26569,74832,10996,12128 
290 DATA 69783,74891,22317,98724 
300 END 



ma 



20 CLS 

30 PRINT@10,"CODEBOOK" 
40 PRINT:PRINT:PRINT 
50 DIM A$(2,20) 
60 FOR 1 = 1 TO 2 



70 FOR J = 1 TO 20 

80 READ A$(I,J) 

90 NEXTJ,I 

100 INPUT"DO YOU WISH TO CODE(0) 

nnnnnnnnnnnDD 

0RDEC0DE(1)";X 
110 CLS 

120 INPUT-ENTER WORD □";M$ 
130 IF M$ = "*" THEN END 
140 FOR T=1 TO 20 
150 IF M$=A$(1 +X,T) THEN PRINT 

A${2-X,T) 
160 NEXT 
170 GOTO 120 

180 DATA NEWYORK,LOND0N, PARIS, ROME 
190 DATA ARRIVE,DEPART FRGM,G0 TO, 

ESCAPE TO,SATURDAY 
200 DATA SUNDAY,NOON,DAYBREAK, 

MIDNIGHT 
210 DATA NIGHTFALL,IN,AT,ON,SEND 
220 DATA MONEY,FOOD 
230 DATA 54982,73581,90075,23874 
240 DATA 68719,68677,10327,40476 
250 DATA 27921,48553,11072,70355 
260 DATA 26569,74832,10996,12128 
270 DATA 69783,74891,22317,98724 

Although the program listed above is 
limited to 20 words, it can easily be amended 
to include more. If, for instance, you wanted 
to enter 50 words you will need to make the 
following amendments. 

On the Spectrum, Commodore and 
Dragon/Tandy change 20 to 50 in Lines 50, 
70 and 140 and on the Acorn change 20 to 50 
in Lines 60, 80 and 160. You will also need to 
enter the new codes and additional lines in the 
program. 

In the existing Spectrum program you are 
limited to entering words of no more than 10 
characters. If you wish to increase the max- 
imum of characters to, say, 1 2, all you need to 
do is to alter 10 to 12 in Line 50. This 
restriction is not included in any of the other 
programs. 



CUMULATIVE INDEX 



An interim index will be published each week. There will be a complete index in the last issue of INPUT. 



Animation 

of UDGs in clifihanger 992-997 

using colour fill techniques 

Acorn 955-959 

using GCOL 3 

Acorn 999-1000 

using paged graphics 1022-1027 

Applications 
calendar and diary program 

1010-1016, 1017-1021 
hobbies file, extra options 947-952 

text-editor program 

852-856, 878-883, 914-920 



B 



BASIC 

adding instructions to 

Acorn, Dragon, Spectrum 844-851 
Basic programming 

animation with paged graphics 1022-1027 

colotir comtnands, Acorn 953-959 

Computer Aided Design 998-1004 

desiping a new typeface 838-843 
drawing conic sections 857-863, 889-895 

mechanics, principles of 933-939 

multi-key control 974-979 

musical chords and harmonies 985-991 

programming function keys 825-829 

secret codes 960-965, 1044-1048 

speeding up BASIC programs 921-927 



Calendar program 

part 1 1010-1016 

pan 2 1017-1021 

Chords, musical 
definition 985-986 

programs to play 

Acorn, Ctmrnodme 64 985-991 

Ciphers 

see codes, secret 

Circles, drawing 858, 863, 893-894 

Cliffhanger game 

part 1— title page 904-913 

part 2 — adding instructions 928-932 

part 3 — adding a tune 966-973 

part 4 — graphics and merging 992-997 
part 5— setting the scene 1034-1043 

Codebook program 1047-1048 

Codes, secret 960-965,1044-1048 

Colour 
defining in machine code 1034-1043 

filling in with 

Acorn 953-959 

routines for changing 

Commodore 64 872-877 

Computer Aided Design 
rubber-banding and picking 
and dragging 998-1004 

Conic lections 857-863, 889-895 

Cryptography 960-965, 1044-1048 

Curves, drawing 857-863, 889-895 



part 1 


1010-1016 


1 




n 




pan 2 


1017-1021 


Instructions, adding to BASIC 




Robotics 


884-888 


Digital clock routine 


896-S9S 


Accrrn^ Dragon, Spectrum 


844-851 


Rotating bits 
Rubber-banding 


1038-1039 
998-1000 



Ellipses, drawing 858-859, 863, 890-895 

EngiQcering 
see mechanics 

Envelope, parameters of for sound 

Acorn, Commodore 64 968-971 

in musical harmony programs 986-991 



Fence post code 1046 

Filling in with colour 

Acorn 953-959 

FOR . . . NEXT loop 

speed of 924 

use of for animation 

Commodore 64 1026 

Frequency distribution program 

for code-breaking 1044-1045 

Fruit maclilne game 

part 1— the graphics 1028-1033 

Function keys, programming 

Acorn, Commodore 64, Vic 20 826-829 



Games 

diShanger 
904-913, 928-932, 966-973, 992-997, 
1034-1043 
fruit machine 1028-1033 

goldmine 830-837, 864-871 

multi-key control for 974-979 

Othello 980-984, 1005-1009 

wordgame 899-903, 940-945 

Goldmine game 
part 1 — basic routines 830-837 

part 2— option subroutines 864-871 

Graphics 
colour commands. Acorn 953-959 

effects using curves 857-863, 889-895 
hi-res 

for custom typeface 838-843 

setting up new commands 

Commodore 64 872-877 

in cliffhanger game 992-997 

in fruit machine game I028-I033 

in goldmine game 832-837, 870-871 
in Othello game 982, 984 

paged, for animation 1022-1027 

picking and dragging 1000-1004 

rubber-banding 998-1000 



H 



Diary program 



Harmonies, in music 
programs for 
Acorn, Commodore 64 986-991 

Hobbies file, extra options for 947-952 
Hyperbolas, drawing 860-863, 894-895 



K 



974-976 



Keyboard, matrix of 
Keypresses 

detecting 

Acorn, Commodore 64, Vic 20 827-829 

in clifihanger game 929-932 

how they work 826, 974 

multiple, programming for 974-979 



Letter-generator program 



838-843 



M 



Maclilne code 

games programming 

see clifihanger 
merging routines 992-997 

routines for hi-res graphics 

Commodore 64 872-877 

routine to alter BASIC 844-849 

timer routine 896-898 

tune routine 966-973 

Mathematical functions 

in mechanics 935 

speedy use of 923-924 

to draw curves 857-863, 889-895 

Mechanics 

programs to show principles 933-939 

Memory 

mapping, definition 1023 

paged graphics in 1023-1027 

saving vs speed 923 

Merging machine code routines 992-W7 

Multi-key control, programming for 

974-979 

Multiplication code program 1046-1047 

Music 

chords and harmonies 985-991 

machine code routine for 966-973 



SAM chip, Dragon, Tandy 1043 

SAVEing 

problems with when merging 992-997 
Scaling 

custom typeface 841-843 

parabolas and hyperbolas 859-861,853 
Search routines 

binary and serial 924-927 

in text-editor program 914-920 

Singer, program to animate 

Acorn 1026-1027 

Sort routines 

in hobbies file program 947-952 

in text-editor program 914-920 

Speeding up BASIC programs 921-927 
Sprites, Commodore 64 

in cliffhanger game 993-995 

Star, program to animate 

Dragon, Tandy 1027 

Stop-frame animation 1022 



Text-editor program 

pan 1 — basic routines 852-855 

part 2— editing facilities 878-883 

part 3 — sorting, searching, 
formatting and printout 914-920 

Three Blind Mice program 

Acorn, Commodore 64 990-991 

Timer routine 

for BASIC lines 922 

machine code 896-898 

Typeface, setting up new 838-843 



u 








UDGs 

in clifihanger game 


992-997 


Othello board game 




Acorn 


1037-1038 


part 1 


980-984 


in fruit machine game 


1028-1033 


part 2 


1005-1009 


stock, storing 


1040 


Overwriting, avoiding 


994-997 







V 



Paged graphics 1023-1027 
Parabolas,drawing 859-863,891-893 
Peripherals 

robotics 884-888 

Picking and dragging 1000-1004 
PLOT 

new commands. Acorn 953-959 

Polygons, drawing 893-894 
PROCedures, Acorn 

advantages of 922, 924 

use of to fill with colour 954-959 



Variables 

managing for program speed 923-925 
VDG chip, Dragon, Tandy 1043 



w 



Wordgame 

part 1 — basic routines 
part 2 — adding the options 



899-903 
940-945 



The publishers accept no responsibility for unsolicited material sent for publication in INPUT. All tapes and 
written material should be accompanied by a stamped, self-addressed envelope. 



COMING IN ISSUE 34. . . / 



LJ Computer modelling is a potent tool. 
See how mathematics can be used to 
understand GROWTH in nature 

CJHit the jackpot with part two of FRUIT 
MACHINE, but don't look for piles of 
cash under your computer! 

a It's both good and bad news for Willie 
in this part of CLIFFH ANGER. Add 
rewards, potholes and snakes 

OPlan Christmas 2084 with the 
completed DIARY and CALENDAR 
program . . . or what about Bermuda in 
Summer 21 05? 

CJ BBC users can produce bright and 
colourful graphics, and save memory too, 
using TELETEXT screens 
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